home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.06 Jun 86.sit / 02.06 Jun 86 / c source / MousePos.c next >
MacBinary  |  1986-04-01  |  16.4 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Mon Mar 31 21:32:36 1986, modified Mon Mar 31 21:32:36 1986, creator Macintosh Edit, type ASCII, 16100 bytes "MousePos.c" , at 0x3f64 490 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 4d 6f 75 73 65 50 | 6f 73 2e 63 00 00 00 00 |..MouseP|os.c....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 3e e4 00 | 00 01 ea 9a b4 f9 44 9a |.....>..|......D.|
|00000060| b4 f9 44 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..D.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d4 77 00 00 |........|.....w..|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0d 09 09 09 09 |********|**......|
|000000d0| 09 09 09 09 09 09 09 09 | 09 09 20 4d 6f 75 73 65 |........|.. Mouse|
|000000e0| 50 6f 73 2e 63 0d 0d 20 | 20 09 20 20 54 68 69 73 |Pos.c.. | .  This|
|000000f0| 20 69 73 20 61 20 64 65 | 73 6b 20 61 63 63 65 73 | is a de|sk acces|
|00000100| 73 6f 72 79 20 74 68 61 | 74 20 73 68 6f 77 73 20 |sory tha|t shows |
|00000110| 74 68 72 65 65 20 74 68 | 69 6e 67 73 20 61 62 6f |three th|ings abo|
|00000120| 75 74 20 74 68 65 0d 09 | 70 6f 73 69 74 69 6f 6e |ut the..|position|
|00000130| 20 6f 66 20 74 68 65 20 | 6d 6f 75 73 65 20 63 75 | of the |mouse cu|
|00000140| 72 73 6f 72 20 2d 0d 0d | 09 20 20 20 20 2d 20 4e |rsor -..|.    - N|
|00000150| 61 6d 65 20 6f 66 20 74 | 68 65 20 77 69 6e 64 6f |ame of t|he windo|
|00000160| 77 20 74 68 65 20 63 75 | 72 73 6f 72 20 69 73 20 |w the cu|rsor is |
|00000170| 63 75 72 72 65 6e 74 6c | 79 20 6f 76 65 72 0d 09 |currentl|y over..|
|00000180| 20 20 20 20 2d 20 4c 6f | 63 61 6c 20 61 6e 64 20 |    - Lo|cal and |
|00000190| 67 6c 6f 62 61 6c 20 63 | 6f 6f 72 64 69 6e 61 74 |global c|oordinat|
|000001a0| 65 73 20 6f 66 20 74 68 | 65 20 63 75 72 73 6f 72 |es of th|e cursor|
|000001b0| 0d 09 20 20 20 20 2d 20 | 22 46 61 74 20 42 69 74 |..    - |"Fat Bit|
|000001c0| 73 22 20 64 69 73 70 6c | 61 79 20 6f 66 20 61 20 |s" displ|ay of a |
|000001d0| 72 65 63 74 61 6e 67 6c | 65 20 61 72 6f 75 6e 64 |rectangl|e around|
|000001e0| 20 74 68 65 20 63 75 72 | 73 6f 72 0d 0d 09 20 20 | the cur|sor...  |
|000001f0| 49 74 20 61 6c 73 6f 20 | 61 6c 6c 6f 77 73 20 74 |It also |allows t|
|00000200| 68 65 20 75 73 65 72 20 | 74 6f 20 43 6f 70 79 20 |he user |to Copy |
|00000210| 6f 72 20 43 75 74 20 74 | 68 65 20 77 69 6e 64 6f |or Cut t|he windo|
|00000220| 77 20 6e 61 6d 65 20 61 | 6e 64 0d 09 74 68 65 20 |w name a|nd..the |
|00000230| 6c 6f 63 61 6c 20 26 20 | 67 6c 6f 62 61 6c 20 63 |local & |global c|
|00000240| 6f 6f 72 64 69 6e 61 74 | 65 73 20 74 6f 20 74 68 |oordinat|es to th|
|00000250| 65 20 63 6c 69 70 62 6f | 61 72 64 20 28 43 61 70 |e clipbo|ard (Cap|
|00000260| 73 4c 6f 63 6b 2d 43 6f | 70 79 20 6f 72 0d 09 43 |sLock-Co|py or..C|
|00000270| 61 70 73 4c 6f 63 6b 2d | 43 75 74 20 77 69 6c 6c |apsLock-|Cut will|
|00000280| 20 61 70 70 65 6e 64 20 | 74 68 65 20 63 6f 6f 72 | append |the coor|
|00000290| 64 69 6e 61 74 65 73 20 | 74 6f 20 74 68 65 20 63 |dinates |to the c|
|000002a0| 6c 70 62 6f 61 72 64 29 | 2e 0d 0d 20 57 72 69 74 |lpboard)|... Writ|
|000002b0| 74 65 6e 20 62 79 3a 20 | 52 69 63 6b 20 46 6c 6f |ten by: |Rick Flo|
|000002c0| 74 74 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |tt      |        |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 61 63 |        |     Mac|
|000002e0| 20 43 20 28 43 6f 6e 73 | 75 6c 61 69 72 29 20 56 | C (Cons|ulair) V|
|000002f0| 20 34 2e 35 0d 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | 4.5.***|********|
|00000300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|00000340| 0d 23 4f 70 74 69 6f 6e | 73 20 52 3d 34 20 4c 3d |.#Option|s R=4 L=|
|00000350| 35 30 30 20 46 3d 38 30 | 30 30 20 5a 20 51 3d 30 |500 F=80|00 Z Q=0|
|00000360| 20 4f 3d 32 30 30 0d 0d | 23 69 6e 63 6c 75 64 65 | O=200..|#include|
|00000370| 20 22 4d 61 63 43 44 65 | 66 73 2e 68 22 09 09 09 | "MacCDe|fs.h"...|
|00000380| 09 09 09 09 09 09 09 09 | 20 2f 2f 20 4d 61 63 20 |........| // Mac |
|00000390| 52 4f 4d 20 64 61 74 61 | 20 73 74 72 75 63 74 75 |ROM data| structu|
|000003a0| 72 65 20 64 65 66 27 73 | 0d 23 69 6e 63 6c 75 64 |re def's|.#includ|
|000003b0| 65 20 22 45 76 65 6e 74 | 73 2e 68 22 0d 23 69 6e |e "Event|s.h".#in|
|000003c0| 63 6c 75 64 65 20 22 57 | 69 6e 64 6f 77 2e 68 22 |clude "W|indow.h"|
|000003d0| 0d 23 69 6e 63 6c 75 64 | 65 20 22 46 6f 6e 74 2e |.#includ|e "Font.|
|000003e0| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 54 65 78 |h".#incl|ude "Tex|
|000003f0| 74 45 64 69 74 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |tEdit.h"|.#includ|
|00000400| 65 20 22 4f 73 6d 69 73 | 63 2e 68 22 0d 23 69 6e |e "Osmis|c.h".#in|
|00000410| 63 6c 75 64 65 20 22 4f | 73 69 6f 2e 68 22 0d 23 |clude "O|sio.h".#|
|00000420| 69 6e 63 6c 75 64 65 20 | 22 44 65 73 6b 2e 68 22 |include |"Desk.h"|
|00000430| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 20 20 20 |--------|----.   |
|00000480| 20 47 6c 6f 62 61 6c 20 | 44 61 74 61 0d 2d 2d 2d | Global |Data.---|
|00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004d0| 2d 2d 2d 2d 2d 2a 2f 0d | 0d 2f 2a 20 2d 2d 2d 2d |-----*/.|./* ----|
|000004e0| 2d 2d 20 43 6f 6e 73 74 | 61 6e 74 73 20 2d 2d 2d |-- Const|ants ---|
|000004f0| 2d 2d 20 2a 2f 0d 0d 23 | 64 65 66 69 6e 65 20 46 |-- */..#|define F|
|00000500| 41 4c 53 45 20 30 0d 23 | 64 65 66 69 6e 65 20 54 |ALSE 0.#|define T|
|00000510| 52 55 45 20 20 30 78 46 | 46 0d 0d 2f 2a 20 2d 2d |RUE  0xF|F../* --|
|00000520| 2d 2d 2d 2d 2d 20 54 79 | 70 65 73 20 2d 2d 2d 2d |----- Ty|pes ----|
|00000530| 2d 2d 2d 20 2a 2f 0d 0d | 74 79 70 65 64 65 66 20 |--- */..|typedef |
|00000540| 73 74 72 75 63 74 09 09 | 09 09 09 09 09 09 20 09 |struct..|...... .|
|00000550| 09 09 09 09 09 09 09 2f | 2f 20 36 20 63 68 61 72 |......./|/ 6 char|
|00000560| 20 73 74 72 69 6e 67 73 | 20 66 6f 72 20 74 68 65 | strings| for the|
|00000570| 20 63 6f 6f 72 64 27 73 | 0d 09 7b 0d 09 63 68 61 | coord's|..{..cha|
|00000580| 72 20 63 6f 75 6e 74 3b | 0d 09 63 68 61 72 20 73 |r count;|..char s|
|00000590| 5b 36 5d 3b 0d 09 7d 20 | 53 74 72 36 3b 0d 0d 2f |[6];..} |Str6;../|
|000005a0| 2a 20 2d 2d 2d 2d 20 52 | 65 63 74 61 6e 67 6c 65 |* ---- R|ectangle|
|000005b0| 73 20 2d 2d 2d 2d 20 2a | 2f 0d 0d 52 65 63 74 20 |s ---- *|/..Rect |
|000005c0| 74 69 74 6c 65 52 65 63 | 74 20 20 20 20 20 20 3d |titleRec|t      =|
|000005d0| 20 7b 20 20 30 2c 20 20 | 30 2c 20 31 30 2c 31 30 | {  0,  |0, 10,10|
|000005e0| 30 7d 2c 09 09 09 2f 2f | 20 57 69 6e 64 6f 77 20 |0},...//| Window |
|000005f0| 74 69 74 6c 65 20 72 65 | 63 74 0d 20 20 20 20 20 |title re|ct.     |
|00000600| 6c 6f 63 61 6c 53 74 72 | 52 65 63 74 20 20 20 3d |localStr|Rect   =|
|00000610| 20 7b 20 31 31 2c 20 20 | 31 2c 20 32 31 2c 20 20 | { 11,  |1, 21,  |
|00000620| 36 7d 2c 0d 20 20 20 20 | 20 6c 6f 63 61 6c 48 52 |6},.    | localHR|
|00000630| 65 63 74 20 20 20 20 20 | 3d 20 7b 20 31 31 2c 20 |ect     |= { 11, |
|00000640| 20 36 2c 20 32 31 2c 20 | 34 39 7d 2c 09 09 09 2f | 6, 21, |49},.../|
|00000650| 2f 20 4c 6f 63 61 6c 20 | 68 6f 72 69 7a 20 63 6f |/ Local |horiz co|
|00000660| 6f 72 64 27 73 20 72 65 | 63 74 0d 20 20 20 20 20 |ord's re|ct.     |
|00000670| 6c 6f 63 61 6c 56 52 65 | 63 74 20 20 20 20 20 3d |localVRe|ct     =|
|00000680| 20 7b 20 31 31 2c 20 35 | 32 2c 20 32 31 2c 20 39 | { 11, 5|2, 21, 9|
|00000690| 34 7d 2c 09 09 09 2f 2f | 20 4c 6f 63 61 6c 20 76 |4},...//| Local v|
|000006a0| 65 72 74 20 20 63 6f 6f | 72 64 27 73 20 72 65 63 |ert  coo|rd's rec|
|000006b0| 74 0d 20 20 20 20 20 67 | 6c 6f 62 61 6c 53 74 72 |t.     g|lobalStr|
|000006c0| 52 65 63 74 20 20 3d 20 | 7b 20 32 31 2c 20 20 31 |Rect  = |{ 21,  1|
|000006d0| 2c 20 33 31 2c 20 20 36 | 7d 2c 0d 20 20 20 20 20 |, 31,  6|},.     |
|000006e0| 67 6c 6f 62 61 6c 48 52 | 65 63 74 20 20 20 20 3d |globalHR|ect    =|
|000006f0| 20 7b 20 32 31 2c 20 20 | 36 2c 20 33 31 2c 20 34 | { 21,  |6, 31, 4|
|00000700| 39 7d 2c 09 09 09 2f 2f | 20 47 6c 6f 62 61 6c 20 |9},...//| Global |
|00000710| 68 6f 72 69 7a 20 63 6f | 6f 72 64 27 73 20 72 65 |horiz co|ord's re|
|00000720| 63 74 0d 20 20 20 20 20 | 67 6c 6f 62 61 6c 56 52 |ct.     |globalVR|
|00000730| 65 63 74 20 20 20 20 3d | 20 7b 20 32 31 2c 20 35 |ect    =| { 21, 5|
|00000740| 32 2c 20 33 31 2c 20 39 | 34 7d 2c 09 09 09 2f 2f |2, 31, 9|4},...//|
|00000750| 20 47 6c 6f 62 61 6c 20 | 76 65 72 74 20 20 63 6f | Global |vert  co|
|00000760| 6f 72 64 27 73 20 72 65 | 63 74 0d 0d 20 20 20 20 |ord's re|ct..    |
|00000770| 20 66 42 54 6f 70 4c 65 | 66 74 52 65 63 74 20 20 | fBTopLe|ftRect  |
|00000780| 3d 20 7b 20 33 32 2c 20 | 20 30 2c 20 36 34 2c 20 |= { 32, | 0, 64, |
|00000790| 34 38 7d 2c 09 09 09 2f | 2f 20 22 46 61 74 20 42 |48},.../|/ "Fat B|
|000007a0| 69 74 73 22 20 72 65 63 | 74 27 73 0d 20 20 20 20 |its" rec|t's.    |
|000007b0| 20 66 42 42 6f 74 4c 65 | 66 74 52 65 63 74 20 20 | fBBotLe|ftRect  |
|000007c0| 3d 20 7b 20 36 38 2c 20 | 20 30 2c 31 30 30 2c 20 |= { 68, | 0,100, |
|000007d0| 34 38 7d 2c 0d 20 20 20 | 20 20 66 42 54 6f 70 52 |48},.   |  fBTopR|
|000007e0| 69 67 68 74 52 65 63 74 | 20 3d 20 7b 20 33 32 2c |ightRect| = { 32,|
|000007f0| 20 35 32 2c 20 36 34 2c | 31 30 30 7d 2c 0d 20 20 | 52, 64,|100},.  |
|00000800| 20 20 20 66 42 42 6f 74 | 52 69 67 68 74 52 65 63 |   fBBot|RightRec|
|00000810| 74 20 3d 20 7b 20 36 38 | 2c 20 35 32 2c 31 30 30 |t = { 68|, 52,100|
|00000820| 2c 31 30 30 7d 2c 0d 0d | 20 20 20 20 20 77 69 6e |,100},..|     win|
|00000830| 64 6f 77 52 65 63 74 20 | 20 20 20 20 3d 20 7b 20 |dowRect |    = { |
|00000840| 35 30 2c 20 20 35 2c 31 | 35 30 2c 31 30 35 7d 3b |50,  5,1|50,105};|
|00000850| 09 09 09 2f 2f 20 44 41 | 20 77 69 6e 64 6f 77 20 |...// DA| window |
|00000860| 72 65 63 74 0d 0d 2f 2a | 20 2d 2d 2d 2d 2d 20 53 |rect../*| ----- S|
|00000870| 74 72 69 6e 67 73 20 2d | 2d 2d 2d 2d 2d 20 2a 2f |trings -|----- */|
|00000880| 0d 0d 63 68 61 72 20 20 | 20 64 65 73 6b 54 6f 70 |..char  | deskTop|
|00000890| 54 69 74 6c 65 5b 5d 20 | 3d 20 7b 22 5c 70 44 65 |Title[] |= {"\pDe|
|000008a0| 73 6b 54 6f 70 22 7d 3b | 09 09 09 09 2f 2f 20 43 |skTop"};|....// C|
|000008b0| 6f 6e 73 74 61 6e 74 20 | 64 65 73 6b 74 6f 70 20 |onstant |desktop |
|000008c0| 73 74 72 69 6e 67 0d 0d | 53 74 72 36 20 20 20 6c |string..|Str6   l|
|000008d0| 6f 63 61 6c 56 53 74 72 | 2c 20 20 6c 6f 63 61 6c |ocalVStr|,  local|
|000008e0| 48 53 74 72 2c 09 09 09 | 09 09 09 09 09 09 2f 2f |HStr,...|......//|
|000008f0| 20 4c 6f 63 61 6c 20 63 | 6f 6f 72 64 69 6e 61 74 | Local c|oordinat|
|00000900| 65 20 73 74 72 69 6e 67 | 73 0d 20 20 20 20 20 09 |e string|s.     .|
|00000910| 20 67 6c 6f 62 61 6c 56 | 53 74 72 2c 20 67 6c 6f | globalV|Str, glo|
|00000920| 62 61 6c 48 53 74 72 3b | 09 09 09 09 09 09 09 09 |balHStr;|........|
|00000930| 2f 2f 20 47 6c 6f 62 61 | 6c 20 63 6f 6f 72 64 69 |// Globa|l coordi|
|00000940| 6e 61 74 65 20 73 74 72 | 69 6e 67 73 0d 0d 53 74 |nate str|ings..St|
|00000950| 72 32 35 35 20 77 69 6e | 64 6f 77 54 3b 09 09 09 |r255 win|dowT;...|
|00000960| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 2f 2f 20 |........|.....// |
|00000970| 57 69 6e 64 6f 77 20 6e | 61 6d 65 20 73 74 72 69 |Window n|ame stri|
|00000980| 6e 67 0d 0d 2f 2a 20 2d | 2d 2d 20 47 6c 6f 62 61 |ng../* -|-- Globa|
|00000990| 6c 20 56 61 72 27 73 20 | 2d 2d 2d 20 2a 2f 0d 0d |l Var's |--- */..|
|000009a0| 57 69 6e 64 6f 77 50 74 | 72 20 6f 6c 64 46 72 6f |WindowPt|r oldFro|
|000009b0| 6e 74 57 69 6e 64 6f 77 | 20 3d 20 30 3b 09 09 09 |ntWindow| = 0;...|
|000009c0| 09 09 09 09 09 09 2f 2f | 20 4c 61 73 74 20 66 72 |......//| Last fr|
|000009d0| 6f 6e 74 20 77 69 6e 64 | 6f 77 20 70 74 72 0d 50 |ont wind|ow ptr.P|
|000009e0| 6f 69 6e 74 20 20 20 20 | 20 6f 6c 64 50 74 20 3d |oint    | oldPt =|
|000009f0| 20 7b 30 2c 30 7d 3b 09 | 09 09 09 09 09 09 09 09 | {0,0};.|........|
|00000a00| 09 09 2f 2f 20 4c 61 73 | 74 20 70 6f 73 69 74 69 |..// Las|t positi|
|00000a10| 6f 6e 20 6f 66 20 6d 6f | 75 73 65 0d 0d 73 74 72 |on of mo|use..str|
|00000a20| 75 63 74 20 51 44 56 61 | 72 20 2a 67 65 74 51 44 |uct QDVa|r *getQD|
|00000a30| 28 29 3b 0d 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |();.../*|--------|
|00000a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a80| 0d 20 20 20 20 6d 61 69 | 6e 28 29 20 20 20 20 20 |.    mai|n()     |
|00000a90| 28 4f 70 65 6e 20 72 6f | 75 74 69 6e 65 29 0d 0d |(Open ro|utine)..|
|00000aa0| 20 20 20 20 20 20 54 68 | 65 20 4f 70 65 6e 20 72 |      Th|e Open r|
|00000ab0| 6f 75 74 69 6e 65 20 6f | 70 65 6e 73 20 74 68 65 |outine o|pens the|
|00000ac0| 20 64 65 73 6b 20 61 63 | 63 65 73 73 6f 72 79 20 | desk ac|cessory |
|00000ad0| 77 69 6e 64 6f 77 20 61 | 6e 64 20 69 6e 74 69 61 |window a|nd intia|
|00000ae0| 6c 69 7a 65 73 20 61 6e | 79 0d 20 20 20 20 67 6c |lizes an|y.    gl|
|00000af0| 6f 62 61 6c 20 64 61 74 | 61 20 62 65 66 6f 72 65 |obal dat|a before|
|00000b00| 20 74 68 65 20 64 65 73 | 6b 20 61 63 63 65 73 73 | the des|k access|
|00000b10| 6f 72 79 20 69 73 20 75 | 73 65 64 2e 0d 2d 2d 2d |ory is u|sed..---|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b60| 2d 2d 2d 2d 2d 2a 2f 0d | 0d 69 6e 74 20 6d 61 69 |-----*/.|.int mai|
|00000b70| 6e 28 70 61 72 61 6d 65 | 74 65 72 42 6c 6f 63 6b |n(parame|terBlock|
|00000b80| 2c 44 65 76 69 63 65 43 | 6f 6e 74 72 6f 6c 45 6e |,DeviceC|ontrolEn|
|00000b90| 74 72 79 29 0d 09 43 6e | 74 72 6c 50 61 72 61 6d |try)..Cn|trlParam|
|00000ba0| 20 20 20 20 2a 70 61 72 | 61 6d 65 74 65 72 42 6c |    *par|ameterBl|
|00000bb0| 6f 63 6b 3b 0d 09 44 65 | 76 69 63 65 43 6f 6e 74 |ock;..De|viceCont|
|00000bc0| 72 6f 6c 20 2a 44 65 76 | 69 63 65 43 6f 6e 74 72 |rol *Dev|iceContr|
|00000bd0| 6f 6c 45 6e 74 72 79 3b | 0d 09 7b 0d 09 57 69 6e |olEntry;|..{..Win|
|00000be0| 64 6f 77 50 74 72 20 77 | 69 6e 64 6f 77 50 74 72 |dowPtr w|indowPtr|
|00000bf0| 3b 0d 09 47 72 61 66 50 | 74 72 20 70 6f 72 74 3b |;..GrafP|tr port;|
|00000c00| 0d 0d 09 69 66 20 28 28 | 77 69 6e 64 6f 77 50 74 |...if ((|windowPt|
|00000c10| 72 20 3d 20 44 65 76 69 | 63 65 43 6f 6e 74 72 6f |r = Devi|ceContro|
|00000c20| 6c 45 6e 74 72 79 2d 3e | 64 43 74 6c 57 69 6e 64 |lEntry->|dCtlWind|
|00000c30| 6f 77 29 20 3d 3d 20 30 | 29 0d 09 09 7b 0d 09 09 |ow) == 0|)...{...|
|00000c40| 47 65 74 50 6f 72 74 28 | 26 70 6f 72 74 29 3b 09 |GetPort(|&port);.|
|00000c50| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 2f 2f 20 |........|.....// |
|00000c60| 50 72 65 73 65 72 76 65 | 20 61 70 70 6c 69 63 61 |Preserve| applica|
|00000c70| 74 69 6f 6e 20 77 69 6e | 64 6f 77 0d 0d 0d 09 09 |tion win|dow.....|
|00000c80| 77 69 6e 64 6f 77 50 74 | 72 20 3d 20 4e 65 77 57 |windowPt|r = NewW|
|00000c90| 69 6e 64 6f 77 28 30 2c | 20 26 77 69 6e 64 6f 77 |indow(0,| &window|
|00000ca0| 52 65 63 74 2c 09 09 09 | 2f 2f 20 4f 70 65 6e 20 |Rect,...|// Open |
|00000cb0| 44 41 20 77 69 6e 64 6f | 77 0d 09 09 20 20 20 20 |DA windo|w...    |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cd0| 20 20 22 5c 70 4d 6f 75 | 73 65 20 50 6f 73 22 2c |  "\pMou|se Pos",|
|00000ce0| 30 2c 0d 09 09 20 20 20 | 20 20 20 20 20 20 20 20 |0,...   |        |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 72 44 6f 63 50 |        |   rDocP|
|00000d00| 72 6f 63 2c 20 2d 31 2c | 20 31 2c 20 30 29 3b 0d |roc, -1,| 1, 0);.|
|00000d10| 09 09 69 66 20 28 77 69 | 6e 64 6f 77 50 74 72 20 |..if (wi|ndowPtr |
|00000d20| 3d 3d 20 30 29 0d 20 20 | 20 20 20 09 72 65 74 75 |== 0).  |   .retu|
|00000d30| 72 6e 28 2d 31 29 3b 0d | 0d 20 20 20 09 53 65 74 |rn(-1);.|.   .Set|
|00000d40| 50 6f 72 74 28 77 69 6e | 64 6f 77 50 74 72 29 3b |Port(win|dowPtr);|
|00000d50| 09 09 09 09 09 09 09 09 | 09 09 09 09 2f 2f 20 55 |........|....// U|
|00000d60| 73 65 20 74 68 69 73 20 | 6e 65 77 20 77 69 6e 64 |se this |new wind|
|00000d70| 6f 77 0d 0d 20 20 20 09 | 28 28 57 69 6e 64 6f 77 |ow..   .|((Window|
|00000d80| 50 65 65 6b 29 77 69 6e | 64 6f 77 50 74 72 29 2d |Peek)win|dowPtr)-|
|00000d90| 3e 77 69 6e 64 6f 77 4b | 69 6e 64 20 3d 20 09 09 |>windowK|ind = ..|
|00000da0| 2f 2f 20 44 65 63 6c 61 | 72 65 20 69 74 20 61 20 |// Decla|re it a |
|00000db0| 73 79 73 74 65 6d 20 77 | 69 6e 64 6f 77 0d 20 20 |system w|indow.  |
|00000dc0| 20 09 20 20 44 65 76 69 | 63 65 43 6f 6e 74 72 6f | .  Devi|ceContro|
|00000dd0| 6c 45 6e 74 72 79 2d 3e | 64 43 74 6c 52 65 66 4e |lEntry->|dCtlRefN|
|00000de0| 75 6d 3b 0d 0d 20 20 20 | 09 44 65 76 69 63 65 43 |um;..   |.DeviceC|
|00000df0| 6f 6e 74 72 6f 6c 45 6e | 74 72 79 2d 3e 64 43 74 |ontrolEn|try->dCt|
|00000e00| 6c 57 69 6e 64 6f 77 3d | 77 69 6e 64 6f 77 50 74 |lWindow=|windowPt|
|00000e10| 72 3b 09 2f 2f 20 53 61 | 76 65 20 44 41 20 77 69 |r;.// Sa|ve DA wi|
|00000e20| 6e 64 6f 77 20 70 74 72 | 0d 0d 20 20 20 09 54 65 |ndow ptr|..   .Te|
|00000e30| 78 74 46 6f 6e 74 28 6d | 6f 6e 61 63 6f 29 3b 09 |xtFont(m|onaco);.|
|00000e40| 09 09 09 09 09 09 09 09 | 09 09 09 09 2f 2f 20 53 |........|....// S|
|00000e50| 65 74 20 75 70 20 44 41 | 20 66 6f 6e 74 0d 20 20 |et up DA| font.  |
|00000e60| 20 09 54 65 78 74 53 69 | 7a 65 28 39 29 3b 0d 0d | .TextSi|ze(9);..|
|00000e70| 20 20 20 09 64 72 61 77 | 57 69 6e 64 6f 77 28 29 |   .draw|Window()|
|00000e80| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |;.......|........|
|00000e90| 2f 2f 20 44 72 61 77 20 | 73 74 61 74 69 63 20 70 |// Draw |static p|
|00000ea0| 6f 72 74 69 6f 6e 20 6f | 66 20 77 69 6e 64 6f 77 |ortion o|f window|
|00000eb0| 0d 0d 20 20 20 09 53 65 | 74 50 6f 72 74 28 70 6f |..   .Se|tPort(po|
|00000ec0| 72 74 29 3b 09 09 09 09 | 09 09 09 09 09 09 09 09 |rt);....|........|
|00000ed0| 09 09 2f 2f 20 52 65 73 | 74 6f 72 65 20 61 70 70 |..// Res|tore app|
|00000ee0| 6c 69 63 61 74 69 6f 6e | 20 77 69 6e 64 6f 77 0d |lication| window.|
|00000ef0| 20 20 20 09 7d 0d 0d 09 | 72 65 74 75 72 6e 20 30 |   .}...|return 0|
|00000f00| 3b 0d 0d 09 7d 20 2f 2f | 20 65 6e 64 20 6d 61 69 |;...} //| end mai|
|00000f10| 6e 28 29 0d 0d 2f 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |n()../*-|--------|
|00000f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000f60| 20 20 20 20 43 6c 6f 73 | 65 28 29 0d 0d 20 20 20 |    Clos|e()..   |
|00000f70| 20 20 20 54 68 65 20 43 | 6c 6f 73 65 20 72 6f 75 |   The C|lose rou|
|00000f80| 74 69 6e 65 20 64 69 73 | 70 6f 73 65 73 20 6f 66 |tine dis|poses of|
|00000f90| 20 74 68 65 20 64 65 73 | 6b 20 61 63 63 65 73 73 | the des|k access|
|00000fa0| 6f 72 79 20 77 69 6e 64 | 6f 77 20 61 6e 64 20 61 |ory wind|ow and a|
|00000fb0| 6e 79 20 64 61 74 61 0d | 20 20 20 20 61 6c 6c 6f |ny data.|    allo|
|00000fc0| 63 61 74 65 64 20 6f 6e | 20 74 68 65 20 68 65 61 |cated on| the hea|
|00000fd0| 70 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |p..-----|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 0d 69 |--------|---*/..i|
|00001020| 6e 74 20 43 6c 6f 73 65 | 28 70 61 72 61 6d 65 74 |nt Close|(paramet|
|00001030| 65 72 42 6c 6f 63 6b 2c | 44 65 76 69 63 65 43 6f |erBlock,|DeviceCo|
|00001040| 6e 74 72 6f 6c 45 6e 74 | 72 79 29 0d 09 43 6e 74 |ntrolEnt|ry)..Cnt|
|00001050| 72 6c 50 61 72 61 6d 20 | 20 20 20 2a 70 61 72 61 |rlParam |   *para|
|00001060| 6d 65 74 65 72 42 6c 6f | 63 6b 3b 0d 09 44 65 76 |meterBlo|ck;..Dev|
|00001070| 69 63 65 43 6f 6e 74 72 | 6f 6c 20 2a 44 65 76 69 |iceContr|ol *Devi|
|00001080| 63 65 43 6f 6e 74 72 6f | 6c 45 6e 74 72 79 3b 0d |ceContro|lEntry;.|
|00001090| 09 7b 0d 09 57 69 6e 64 | 6f 77 50 74 72 20 77 69 |.{..Wind|owPtr wi|
|000010a0| 6e 64 6f 77 50 74 72 3b | 0d 0d 09 77 69 6e 64 6f |ndowPtr;|...windo|
|000010b0| 77 50 74 72 20 3d 20 44 | 65 76 69 63 65 43 6f 6e |wPtr = D|eviceCon|
|000010c0| 74 72 6f 6c 45 6e 74 72 | 79 2d 3e 64 43 74 6c 57 |trolEntr|y->dCtlW|
|000010d0| 69 6e 64 6f 77 3b 09 2f | 2f 20 47 65 74 20 44 41 |indow;./|/ Get DA|
|000010e0| 20 77 69 6e 64 6f 77 20 | 70 74 72 0d 09 44 69 73 | window |ptr..Dis|
|000010f0| 70 6f 73 65 57 69 6e 64 | 6f 77 28 77 69 6e 64 6f |poseWind|ow(windo|
|00001100| 77 50 74 72 29 3b 09 09 | 09 09 09 09 09 09 09 09 |wPtr);..|........|
|00001110| 2f 2f 20 52 65 6c 65 61 | 73 65 20 44 41 20 77 69 |// Relea|se DA wi|
|00001120| 6e 64 6f 77 0d 09 44 65 | 76 69 63 65 43 6f 6e 74 |ndow..De|viceCont|
|00001130| 72 6f 6c 45 6e 74 72 79 | 2d 3e 64 43 74 6c 57 69 |rolEntry|->dCtlWi|
|00001140| 6e 64 6f 77 20 3d 20 30 | 3b 0d 0d 09 72 65 74 75 |ndow = 0|;...retu|
|00001150| 72 6e 20 30 3b 0d 0d 09 | 7d 20 2f 2f 20 65 6e 64 |rn 0;...|} // end|
|00001160| 20 43 6c 6f 73 65 28 29 | 0d 0d 2f 2a 2d 2d 2d 2d | Close()|../*----|
|00001170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011b0| 2d 2d 2d 2d 0d 20 20 20 | 50 72 69 6d 65 28 29 0d |----.   |Prime().|
|000011c0| 0d 20 20 20 20 20 20 54 | 68 69 73 20 64 65 73 6b |.      T|his desk|
|000011d0| 20 61 63 63 65 73 73 6f | 72 79 20 64 6f 65 73 20 | accesso|ry does |
|000011e0| 6e 6f 74 20 75 73 65 20 | 61 20 50 72 69 6d 65 20 |not use |a Prime |
|000011f0| 72 6f 75 74 69 6e 65 2e | 0d 2d 2d 2d 2d 2d 2d 2d |routine.|.-------|
|00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001240| 2d 2a 2f 0d 0d 50 72 69 | 6d 65 28 70 61 72 61 6d |-*/..Pri|me(param|
|00001250| 65 74 65 72 42 6c 6f 63 | 6b 2c 44 65 76 69 63 65 |eterBloc|k,Device|
|00001260| 43 6f 6e 74 72 6f 6c 45 | 6e 74 72 79 29 0d 09 43 |ControlE|ntry)..C|
|00001270| 6e 74 72 6c 50 61 72 61 | 6d 20 20 20 20 2a 70 61 |ntrlPara|m    *pa|
|00001280| 72 61 6d 65 74 65 72 42 | 6c 6f 63 6b 3b 0d 09 44 |rameterB|lock;..D|
|00001290| 65 76 69 63 65 43 6f 6e | 74 72 6f 6c 20 2a 44 65 |eviceCon|trol *De|
|000012a0| 76 69 63 65 43 6f 6e 74 | 72 6f 6c 45 6e 74 72 79 |viceCont|rolEntry|
|000012b0| 3b 0d 09 7b 0d 09 7d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |;..{..}.|./*-----|
|000012c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001300| 2d 2d 2d 0d 20 20 20 53 | 74 61 74 75 73 28 70 61 |---.   S|tatus(pa|
|00001310| 72 61 6d 65 74 65 72 42 | 6c 6f 63 6b 2c 44 65 76 |rameterB|lock,Dev|
|00001320| 69 63 65 43 6f 6e 74 72 | 6f 6c 45 6e 74 72 79 29 |iceContr|olEntry)|
|00001330| 0d 0d 20 20 20 20 20 20 | 54 68 69 73 20 64 65 73 |..      |This des|
|00001340| 6b 20 61 63 63 65 73 73 | 6f 72 79 20 64 6f 65 73 |k access|ory does|
|00001350| 20 6e 6f 74 20 75 73 65 | 20 61 20 53 74 61 74 75 | not use| a Statu|
|00001360| 73 20 72 6f 75 74 69 6e | 65 2e 0d 2d 2d 2d 2d 2d |s routin|e..-----|
|00001370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013b0| 2d 2d 2d 2a 2f 0d 0d 53 | 74 61 74 75 73 28 70 61 |---*/..S|tatus(pa|
|000013c0| 72 61 6d 65 74 65 72 42 | 6c 6f 63 6b 2c 44 65 76 |rameterB|lock,Dev|
|000013d0| 69 63 65 43 6f 6e 74 72 | 6f 6c 45 6e 74 72 79 29 |iceContr|olEntry)|
|000013e0| 0d 09 43 6e 74 72 6c 50 | 61 72 61 6d 20 20 20 20 |..CntrlP|aram    |
|000013f0| 2a 70 61 72 61 6d 65 74 | 65 72 42 6c 6f 63 6b 3b |*paramet|erBlock;|
|00001400| 0d 09 44 65 76 69 63 65 | 43 6f 6e 74 72 6f 6c 20 |..Device|Control |
|00001410| 2a 44 65 76 69 63 65 43 | 6f 6e 74 72 6f 6c 45 6e |*DeviceC|ontrolEn|
|00001420| 74 72 79 3b 0d 09 7b 0d | 09 7d 0d 0d 2f 2a 2d 2d |try;..{.|.}../*--|
|00001430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001470| 2d 2d 2d 2d 2d 2d 0d 20 | 20 20 20 43 6f 6e 74 72 |------. |   Contr|
|00001480| 6f 6c 28 29 0d 0d 20 20 | 20 20 20 20 54 68 65 20 |ol()..  |    The |
|00001490| 43 6f 6e 74 72 6f 6c 20 | 72 6f 75 74 69 6e 65 20 |Control |routine |
|000014a0| 70 61 72 73 65 73 20 74 | 68 65 20 64 65 73 6b 20 |parses t|he desk |
|000014b0| 61 63 63 65 73 73 6f 72 | 79 20 63 6f 6d 6d 61 6e |accessor|y comman|
|000014c0| 64 20 73 65 6e 74 20 66 | 72 6f 6d 0d 20 20 20 20 |d sent f|rom.    |
|000014d0| 74 68 65 20 73 79 73 74 | 65 6d 20 61 6e 64 20 72 |the syst|em and r|
|000014e0| 6f 75 74 65 73 20 74 68 | 65 20 64 61 74 61 20 74 |outes th|e data t|
|000014f0| 6f 20 74 68 65 20 70 72 | 6f 70 65 72 20 72 6f 75 |o the pr|oper rou|
|00001500| 74 69 6e 65 2e 20 54 68 | 65 20 63 6f 6d 6d 61 6e |tine. Th|e comman|
|00001510| 64 73 0d 20 20 20 20 63 | 75 72 72 65 6e 74 6c 79 |ds.    c|urrently|
|00001520| 20 75 73 65 64 20 61 72 | 65 20 2d 0d 0d 09 09 09 | used ar|e -.....|
|00001530| 61 63 63 52 75 6e 09 09 | 2d 20 44 69 73 70 6c 61 |accRun..|- Displa|
|00001540| 79 20 74 68 65 20 6d 6f | 75 73 65 20 70 6f 73 69 |y the mo|use posi|
|00001550| 74 69 6f 6e 2e 0d 09 09 | 09 61 63 63 45 76 65 6e |tion....|.accEven|
|00001560| 74 09 2d 20 48 61 6e 64 | 6c 65 20 43 75 74 20 61 |t.- Hand|le Cut a|
|00001570| 6e 64 20 43 6f 70 79 20 | 6d 65 6e 75 20 63 6f 6d |nd Copy |menu com|
|00001580| 6d 61 6e 64 73 2e 0d 0d | 2d 2d 2d 2d 2d 2d 2d 2d |mands...|--------|
|00001590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015d0| 2a 2f 0d 0d 43 6f 6e 74 | 72 6f 6c 28 70 61 72 61 |*/..Cont|rol(para|
|000015e0| 6d 65 74 65 72 42 6c 6f | 63 6b 2c 44 65 76 69 63 |meterBlo|ck,Devic|
|000015f0| 65 43 6f 6e 74 72 6f 6c | 45 6e 74 72 79 29 0d 09 |eControl|Entry)..|
|00001600| 43 6e 74 72 6c 50 61 72 | 61 6d 20 20 20 20 2a 70 |CntrlPar|am    *p|
|00001610| 61 72 61 6d 65 74 65 72 | 42 6c 6f 63 6b 3b 0d 09 |arameter|Block;..|
|00001620| 44 65 76 69 63 65 43 6f | 6e 74 72 6f 6c 20 2a 44 |DeviceCo|ntrol *D|
|00001630| 65 76 69 63 65 43 6f 6e | 74 72 6f 6c 45 6e 74 72 |eviceCon|trolEntr|
|00001640| 79 3b 0d 09 7b 0d 09 47 | 72 61 66 50 74 72 20 70 |y;..{..G|rafPtr p|
|00001650| 6f 72 74 3b 0d 09 57 69 | 6e 64 6f 77 50 74 72 20 |ort;..Wi|ndowPtr |
|00001660| 77 69 6e 64 6f 77 50 74 | 72 3b 0d 0d 09 77 69 6e |windowPt|r;...win|
|00001670| 64 6f 77 50 74 72 20 3d | 20 44 65 76 69 63 65 43 |dowPtr =| DeviceC|
|00001680| 6f 6e 74 72 6f 6c 45 6e | 74 72 79 2d 3e 64 43 74 |ontrolEn|try->dCt|
|00001690| 6c 57 69 6e 64 6f 77 3b | 09 2f 2f 20 47 65 74 20 |lWindow;|.// Get |
|000016a0| 44 41 20 77 69 6e 64 6f | 77 20 70 74 72 0d 0d 09 |DA windo|w ptr...|
|000016b0| 47 65 74 50 6f 72 74 28 | 26 70 6f 72 74 29 3b 09 |GetPort(|&port);.|
|000016c0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2f 2f |........|......//|
|000016d0| 20 50 72 65 73 65 72 76 | 65 20 61 70 70 6c 69 63 | Preserv|e applic|
|000016e0| 61 74 69 6f 6e 20 77 69 | 6e 64 6f 77 0d 09 53 65 |ation wi|ndow..Se|
|000016f0| 74 50 6f 72 74 28 77 69 | 6e 64 6f 77 50 74 72 29 |tPort(wi|ndowPtr)|
|00001700| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2f 2f |;.......|......//|
|00001710| 20 55 73 65 20 44 41 20 | 77 69 6e 64 6f 77 0d 0d | Use DA |window..|
|00001720| 09 73 77 69 74 63 68 20 | 28 70 61 72 61 6d 65 74 |.switch |(paramet|
|00001730| 65 72 42 6c 6f 63 6b 2d | 3e 43 53 43 6f 64 65 29 |erBlock-|>CSCode)|
|00001740| 09 09 09 09 09 09 09 2f | 2f 20 57 68 61 74 20 63 |......./|/ What c|
|00001750| 6d 64 20 77 61 73 20 73 | 65 6e 74 3f 0d 09 09 7b |md was s|ent?...{|
|00001760| 0d 09 09 63 61 73 65 20 | 61 63 63 52 75 6e 3a 09 |...case |accRun:.|
|00001770| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2f 2f |........|......//|
|00001780| 20 63 6d 64 20 3d 20 52 | 55 4e 0d 09 09 09 64 73 | cmd = R|UN....ds|
|00001790| 70 4d 6f 75 73 65 50 6f | 73 28 77 69 6e 64 6f 77 |pMousePo|s(window|
|000017a0| 50 74 72 29 3b 09 09 09 | 09 09 09 09 09 09 2f 2f |Ptr);...|......//|
|000017b0| 20 44 69 73 70 6c 61 79 | 20 6e 65 77 20 6d 6f 75 | Display| new mou|
|000017c0| 73 65 20 70 6f 73 69 74 | 69 6f 6e 0d 09 09 09 62 |se posit|ion....b|
|000017d0| 72 65 61 6b 3b 0d 09 09 | 63 61 73 65 20 61 63 63 |reak;...|case acc|
|000017e0| 45 76 65 6e 74 3a 09 09 | 09 09 09 09 09 09 09 09 |Event:..|........|
|000017f0| 09 09 09 09 2f 2f 20 63 | 6d 64 20 3d 20 48 41 4e |....// c|md = HAN|
|00001800| 44 4c 45 20 41 4e 20 45 | 56 45 4e 54 0d 09 09 09 |DLE AN E|VENT....|
|00001810| 64 6f 45 76 65 6e 74 28 | 70 61 72 61 6d 65 74 65 |doEvent(|paramete|
|00001820| 72 42 6c 6f 63 6b 2d 3e | 63 73 70 2e 65 76 65 6e |rBlock->|csp.even|
|00001830| 74 2c 77 69 6e 64 6f 77 | 50 74 72 29 3b 0d 09 09 |t,window|Ptr);...|
|00001840| 09 62 72 65 61 6b 3b 0d | 09 09 7d 20 2f 2f 20 65 |.break;.|..} // e|
|00001850| 6e 64 20 73 77 69 74 63 | 68 0d 0d 09 53 65 74 50 |nd switc|h...SetP|
|00001860| 6f 72 74 28 70 6f 72 74 | 29 3b 09 09 09 09 09 09 |ort(port|);......|
|00001870| 09 09 09 09 09 09 09 09 | 09 2f 2f 20 52 65 73 74 |........|.// Rest|
|00001880| 6f 72 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |ore appl|ication |
|00001890| 77 69 6e 64 6f 77 0d 0d | 09 20 7d 20 2f 2f 20 65 |window..|. } // e|
|000018a0| 6e 64 20 43 6f 6e 74 72 | 6f 6c 28 29 0d 0d 0d 2f |nd Contr|ol().../|
|000018b0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 20 20 20 20 64 6f |--------|-.    do|
|00001900| 45 76 65 6e 74 28 29 0d | 0d 20 20 20 20 20 20 54 |Event().|.      T|
|00001910| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 70 61 72 73 |his rout|ine pars|
|00001920| 65 73 20 74 68 65 20 65 | 76 65 6e 74 20 73 65 6e |es the e|vent sen|
|00001930| 74 20 66 72 6f 6d 20 74 | 68 65 20 73 79 73 74 65 |t from t|he syste|
|00001940| 6d 2e 20 54 68 65 20 65 | 76 65 6e 74 73 0d 20 20 |m. The e|vents.  |
|00001950| 20 20 63 75 72 72 65 6e | 74 6c 79 20 75 73 65 64 |  curren|tly used|
|00001960| 20 61 72 65 20 2d 0d 0d | 09 09 09 6b 65 79 44 6f | are -..|...keyDo|
|00001970| 77 6e 2c 20 61 75 74 6f | 4b 65 79 20 20 2d 20 43 |wn, auto|Key  - C|
|00001980| 75 74 20 6f 72 20 43 6f | 70 79 20 74 68 65 20 77 |ut or Co|py the w|
|00001990| 69 6e 64 6f 77 20 6e 61 | 6d 65 20 26 20 6d 6f 75 |indow na|me & mou|
|000019a0| 73 65 20 63 6f 6f 72 64 | 27 73 0d 09 09 09 09 09 |se coord|'s......|
|000019b0| 09 09 09 09 09 09 09 09 | 09 74 6f 20 63 6c 69 70 |........|.to clip|
|000019c0| 62 6f 61 72 64 2e 0d 0d | 09 09 09 75 70 64 61 74 |board...|...updat|
|000019d0| 65 45 76 74 20 20 20 20 | 20 20 20 20 20 2d 20 52 |eEvt    |     - R|
|000019e0| 65 64 72 61 77 20 74 68 | 65 20 65 6e 74 69 72 65 |edraw th|e entire|
|000019f0| 20 64 65 73 6b 20 61 63 | 63 20 77 69 6e 64 6f 77 | desk ac|c window|
|00001a00| 2e 0d 0d 09 09 09 61 63 | 74 69 76 61 74 65 45 76 |......ac|tivateEv|
|00001a10| 74 20 20 20 20 20 20 20 | 2d 20 52 65 64 72 61 77 |t       |- Redraw|
|00001a20| 20 74 68 65 20 6f 6e 6c | 79 20 74 68 65 20 6d 6f | the onl|y the mo|
|00001a30| 75 73 65 20 63 6f 6f 72 | 64 27 73 2e 0d 0d 2d 2d |use coor|d's...--|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a80| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 0d 64 6f 45 76 65 6e |------*/|..doEven|
|00001a90| 74 28 65 76 65 6e 74 2c | 77 69 6e 64 6f 77 50 74 |t(event,|windowPt|
|00001aa0| 72 29 0d 09 45 76 65 6e | 74 52 65 63 6f 72 64 20 |r)..Even|tRecord |
|00001ab0| 2a 65 76 65 6e 74 3b 0d | 09 57 69 6e 64 6f 77 50 |*event;.|.WindowP|
|00001ac0| 74 72 20 20 20 20 77 69 | 6e 64 6f 77 50 74 72 3b |tr    wi|ndowPtr;|
|00001ad0| 0d 09 7b 0d 09 48 61 6e | 64 6c 65 20 73 74 72 48 |..{..Han|dle strH|
|00001ae0| 61 6e 64 6c 65 3b 0d 09 | 50 74 72 20 20 20 20 73 |andle;..|Ptr    s|
|00001af0| 74 72 50 74 72 3b 0d 09 | 69 6e 74 20 20 20 20 73 |trPtr;..|int    s|
|00001b00| 63 72 61 70 4f 66 66 73 | 65 74 3b 0d 09 6c 6f 6e |crapOffs|et;..lon|
|00001b10| 67 20 20 20 6f 66 66 73 | 65 74 20 3d 20 30 3b 0d |g   offs|et = 0;.|
|00001b20| 0d 09 73 77 69 74 63 68 | 20 28 65 76 65 6e 74 2d |..switch| (event-|
|00001b30| 3e 77 68 61 74 29 09 09 | 09 09 09 09 09 09 09 09 |>what)..|........|
|00001b40| 09 09 2f 2f 20 57 68 69 | 63 68 20 65 76 65 6e 74 |..// Whi|ch event|
|00001b50| 20 6f 63 63 75 72 72 65 | 64 3f 0d 09 09 7b 0d 09 | occurre|d?...{..|
|00001b60| 09 63 61 73 65 20 6b 65 | 79 44 6f 77 6e 3a 0d 09 |.case ke|yDown:..|
|00001b70| 09 63 61 73 65 20 61 75 | 74 6f 4b 65 79 3a 09 09 |.case au|toKey:..|
|00001b80| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 2f 2f 20 |........|.....// |
|00001b90| 45 76 65 6e 74 20 3d 20 | 4b 45 59 20 50 55 53 48 |Event = |KEY PUSH|
|00001ba0| 0d 09 09 09 69 66 20 28 | 28 65 76 65 6e 74 2d 3e |....if (|(event->|
|00001bb0| 6d 6f 64 69 66 69 65 72 | 73 26 63 6d 64 4b 65 79 |modifier|s&cmdKey|
|00001bc0| 29 29 09 09 09 09 09 2f | 2f 20 57 61 73 20 69 74 |))...../|/ Was it|
|00001bd0| 20 61 20 63 6d 64 20 6b | 65 79 3f 0d 09 09 09 09 | a cmd k|ey?.....|
|00001be0| 7b 0d 09 09 09 09 73 74 | 72 48 61 6e 64 6c 65 20 |{.....st|rHandle |
|00001bf0| 3d 20 28 48 61 6e 64 6c | 65 29 4e 65 77 48 61 6e |= (Handl|e)NewHan|
|00001c00| 64 6c 65 28 30 29 3b 09 | 09 09 2f 2f 20 41 6c 6c |dle(0);.|..// All|
|00001c10| 6f 63 61 74 65 20 61 20 | 73 74 72 69 6e 67 0d 0d |ocate a |string..|
|00001c20| 09 09 09 09 73 77 69 74 | 63 68 20 28 28 63 68 61 |....swit|ch ((cha|
|00001c30| 72 29 28 65 76 65 6e 74 | 2d 3e 6d 65 73 73 61 67 |r)(event|->messag|
|00001c40| 65 29 29 09 09 09 09 2f | 2f 20 4f 6e 6c 79 20 61 |e))..../|/ Only a|
|00001c50| 6c 6c 6f 77 20 43 75 74 | 20 6f 72 20 43 6f 70 79 |llow Cut| or Copy|
|00001c60| 0d 09 09 09 09 09 7b 0d | 09 09 09 09 09 63 61 73 |......{.|.....cas|
|00001c70| 65 20 27 43 27 3a 09 09 | 09 09 09 09 09 09 09 09 |e 'C':..|........|
|00001c80| 09 09 09 09 2f 2f 20 49 | 66 20 53 68 69 66 74 2f |....// I|f Shift/|
|00001c90| 43 61 70 73 4c 6f 63 6b | 20 74 68 65 6e 20 63 6f |CapsLock| then co|
|00001ca0| 70 79 20 70 72 65 76 69 | 6f 75 73 20 63 6c 69 70 |py previ|ous clip|
|00001cb0| 62 6f 61 72 64 0d 09 09 | 09 09 09 63 61 73 65 20 |board...|...case |
|00001cc0| 27 58 27 3a 0d 09 09 09 | 09 09 09 6f 66 66 73 65 |'X':....|...offse|
|00001cd0| 74 20 3d 20 47 65 74 53 | 63 72 61 70 28 73 74 72 |t = GetS|crap(str|
|00001ce0| 48 61 6e 64 6c 65 2c 27 | 54 45 58 54 27 2c 26 73 |Handle,'|TEXT',&s|
|00001cf0| 63 72 61 70 4f 66 66 73 | 65 74 29 3b 0d 09 09 09 |crapOffs|et);....|
|00001d00| 09 09 63 61 73 65 20 27 | 63 27 3a 0d 09 09 09 09 |..case '|c':.....|
|00001d10| 09 63 61 73 65 20 27 78 | 27 3a 0d 09 09 09 09 09 |.case 'x|':......|
|00001d20| 09 69 66 20 28 6f 66 66 | 73 65 74 20 3c 20 30 29 |.if (off|set < 0)|
|00001d30| 09 09 09 09 09 09 09 09 | 09 09 2f 2f 20 57 61 73 |........|..// Was|
|00001d40| 20 74 68 65 72 65 20 61 | 20 73 63 72 61 70 20 65 | there a| scrap e|
|00001d50| 72 72 6f 72 3f 0d 09 09 | 09 09 09 09 09 7b 0d 09 |rror?...|.....{..|
|00001d60| 09 09 09 09 09 09 53 79 | 73 42 65 65 70 28 32 29 |......Sy|sBeep(2)|
|00001d70| 3b 09 09 09 09 09 09 09 | 09 09 09 09 2f 2f 20 59 |;.......|....// Y|
|00001d80| 20 2d 20 72 65 74 75 72 | 6e 0d 09 09 09 09 09 09 | - retur|n.......|
|00001d90| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 09 09 09 7d |.break;.|.......}|
|00001da0| 0d 0d 09 09 09 09 09 09 | 69 66 20 28 5a 65 72 6f |........|if (Zero|
|00001db0| 53 63 72 61 70 28 29 29 | 09 09 09 09 09 09 09 09 |Scrap())|........|
|00001dc0| 09 2f 2f 20 43 6c 65 61 | 72 20 74 68 65 20 63 6c |.// Clea|r the cl|
|00001dd0| 69 70 62 6f 61 72 64 0d | 09 09 09 09 09 09 09 7b |ipboard.|.......{|
|00001de0| 0d 09 09 09 09 09 09 09 | 53 79 73 42 65 65 70 28 |........|SysBeep(|
|00001df0| 32 29 3b 0d 09 09 09 09 | 09 09 09 62 72 65 61 6b |2);.....|...break|
|00001e00| 3b 0d 09 09 09 09 09 09 | 09 7d 0d 0d 20 20 20 20 |;.......|.}..    |
|00001e10| 20 20 09 09 09 2f 2f 20 | 47 72 6f 77 20 73 74 72 |  ...// |Grow str|
|00001e20| 69 6e 67 20 74 6f 20 70 | 6c 61 63 65 20 63 6c 69 |ing to p|lace cli|
|00001e30| 70 62 6f 61 72 64 20 73 | 74 75 66 66 20 69 6e 0d |pboard s|tuff in.|
|00001e40| 0d 09 09 09 09 09 09 53 | 65 74 48 61 6e 64 6c 65 |.......S|etHandle|
|00001e50| 53 69 7a 65 28 73 74 72 | 48 61 6e 64 6c 65 2c 6f |Size(str|Handle,o|
|00001e60| 66 66 73 65 74 2b 28 73 | 69 7a 65 6f 66 20 77 69 |ffset+(s|izeof wi|
|00001e70| 6e 64 6f 77 54 29 2b 0d | 09 09 09 09 09 09 09 09 |ndowT)+.|........|
|00001e80| 09 09 09 09 09 09 09 09 | 09 09 09 09 20 09 20 28 |........|.... . (|
|00001e90| 73 69 7a 65 6f 66 20 6c | 6f 63 61 6c 48 53 74 72 |sizeof l|ocalHStr|
|00001ea0| 29 2b 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |)+......|........|
|00001eb0| 09 09 09 09 09 09 09 20 | 09 20 28 73 69 7a 65 6f |....... |. (sizeo|
|00001ec0| 66 20 6c 6f 63 61 6c 56 | 53 74 72 29 2b 0d 09 09 |f localV|Str)+...|
|00001ed0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00001ee0| 09 09 20 09 20 28 73 69 | 7a 65 6f 66 20 67 6c 6f |.. . (si|zeof glo|
|00001ef0| 62 61 6c 48 53 74 72 29 | 2b 0d 09 09 09 09 09 09 |balHStr)|+.......|
|00001f00| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 20 09 |........|...... .|
|00001f10| 20 28 73 69 7a 65 6f 66 | 20 67 6c 6f 62 61 6c 56 | (sizeof| globalV|
|00001f20| 53 74 72 29 29 3b 0d 0d | 20 20 20 20 20 20 09 09 |Str));..|      ..|
|00001f30| 09 2f 2f 20 50 6c 61 63 | 65 20 77 69 6e 64 6f 77 |.// Plac|e window|
|00001f40| 20 6e 61 6d 65 2c 20 6c | 6f 63 61 6c 2c 20 67 6c | name, l|ocal, gl|
|00001f50| 6f 62 61 6c 20 63 6f 6f | 72 64 27 73 20 69 6e 74 |obal coo|rd's int|
|00001f60| 6f 20 73 74 72 69 6e 67 | 0d 0d 20 20 20 20 20 20 |o string|..      |
|00001f70| 09 09 09 6f 66 66 73 65 | 74 20 3d 20 4d 75 6e 67 |...offse|t = Mung|
|00001f80| 65 72 28 73 74 72 48 61 | 6e 64 6c 65 2c 6f 66 66 |er(strHa|ndle,off|
|00001f90| 73 65 74 2c 30 2c 30 2c | 77 69 6e 64 6f 77 54 2e |set,0,0,|windowT.|
|00001fa0| 73 2c 20 20 20 28 6c 6f | 6e 67 29 77 69 6e 64 6f |s,   (lo|ng)windo|
|00001fb0| 77 54 2e 63 6f 75 6e 74 | 29 3b 0d 20 20 20 20 20 |wT.count|);.     |
|00001fc0| 20 09 09 09 6f 66 66 73 | 65 74 20 3d 20 4d 75 6e | ...offs|et = Mun|
|00001fd0| 67 65 72 28 73 74 72 48 | 61 6e 64 6c 65 2c 6f 66 |ger(strH|andle,of|
|00001fe0| 66 73 65 74 2c 30 2c 30 | 2c 6c 6f 63 61 6c 48 53 |fset,0,0|,localHS|
|00001ff0| 74 72 2e 73 2c 20 28 6c | 6f 6e 67 29 6c 6f 63 61 |tr.s, (l|ong)loca|
|00002000| 6c 48 53 74 72 2e 63 6f | 75 6e 74 29 3b 0d 20 20 |lHStr.co|unt);.  |
|00002010| 20 20 20 20 09 09 09 6f | 66 66 73 65 74 20 3d 20 |    ...o|ffset = |
|00002020| 4d 75 6e 67 65 72 28 73 | 74 72 48 61 6e 64 6c 65 |Munger(s|trHandle|
|00002030| 2c 6f 66 66 73 65 74 2c | 30 2c 30 2c 6c 6f 63 61 |,offset,|0,0,loca|
|00002040| 6c 56 53 74 72 2e 73 2c | 20 28 6c 6f 6e 67 29 6c |lVStr.s,| (long)l|
|00002050| 6f 63 61 6c 56 53 74 72 | 2e 63 6f 75 6e 74 29 3b |ocalVStr|.count);|
|00002060| 0d 20 20 20 20 20 20 09 | 09 09 6f 66 66 73 65 74 |.      .|..offset|
|00002070| 20 3d 20 4d 75 6e 67 65 | 72 28 73 74 72 48 61 6e | = Munge|r(strHan|
|00002080| 64 6c 65 2c 6f 66 66 73 | 65 74 2c 30 2c 30 2c 67 |dle,offs|et,0,0,g|
|00002090| 6c 6f 62 61 6c 48 53 74 | 72 2e 73 2c 28 6c 6f 6e |lobalHSt|r.s,(lon|
|000020a0| 67 29 67 6c 6f 62 61 6c | 48 53 74 72 2e 63 6f 75 |g)global|HStr.cou|
|000020b0| 6e 74 29 3b 0d 20 20 20 | 20 20 20 09 09 09 6f 66 |nt);.   |   ...of|
|000020c0| 66 73 65 74 20 3d 20 4d | 75 6e 67 65 72 28 73 74 |fset = M|unger(st|
|000020d0| 72 48 61 6e 64 6c 65 2c | 6f 66 66 73 65 74 2c 30 |rHandle,|offset,0|
|000020e0| 2c 30 2c 67 6c 6f 62 61 | 6c 56 53 74 72 2e 73 2c |,0,globa|lVStr.s,|
|000020f0| 28 6c 6f 6e 67 29 67 6c | 6f 62 61 6c 56 53 74 72 |(long)gl|obalVStr|
|00002100| 2e 63 6f 75 6e 74 29 3b | 0d 0d 20 20 20 20 20 20 |.count);|..      |
|00002110| 09 09 09 48 4c 6f 63 6b | 28 73 74 72 48 61 6e 64 |...HLock|(strHand|
|00002120| 6c 65 29 3b 09 09 09 09 | 09 09 09 09 2f 2f 20 4c |le);....|....// L|
|00002130| 6f 63 6b 20 74 68 65 20 | 73 74 72 69 6e 67 20 64 |ock the |string d|
|00002140| 6f 77 6e 0d 0d 20 20 20 | 20 20 20 09 09 09 73 74 |own..   |   ...st|
|00002150| 72 50 74 72 20 3d 20 28 | 50 74 72 29 2a 73 74 72 |rPtr = (|Ptr)*str|
|00002160| 48 61 6e 64 6c 65 3b 0d | 20 20 20 20 20 20 09 09 |Handle;.|      ..|
|00002170| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00002180| 09 2f 2f 20 50 75 74 20 | 73 74 72 69 6e 67 20 69 |.// Put |string i|
|00002190| 6e 74 6f 20 63 6c 69 70 | 62 6f 61 72 64 0d 20 20 |nto clip|board.  |
|000021a0| 20 20 20 20 09 09 09 69 | 66 20 28 50 75 74 53 63 |    ...i|f (PutSc|
|000021b0| 72 61 70 28 28 6c 6f 6e | 67 29 6f 66 66 73 65 74 |rap((lon|g)offset|
|000021c0| 2c 27 54 45 58 54 27 2c | 73 74 72 50 74 72 29 29 |,'TEXT',|strPtr))|
|000021d0| 0d 09 09 09 09 09 09 09 | 53 79 73 42 65 65 70 28 |........|SysBeep(|
|000021e0| 32 30 29 3b 0d 0d 09 09 | 09 09 09 09 48 55 6e 6c |20);....|....HUnl|
|000021f0| 6f 63 6b 28 73 74 72 48 | 61 6e 64 6c 65 29 3b 09 |ock(strH|andle);.|
|00002200| 09 09 09 09 09 09 2f 2f | 20 55 6e 6c 6f 63 6b 20 |......//| Unlock |
|00002210| 74 68 65 20 73 74 72 69 | 6e 67 0d 09 09 09 09 09 |the stri|ng......|
|00002220| 09 62 72 65 61 6b 3b 0d | 0d 20 20 20 20 09 09 09 |.break;.|.    ...|
|00002230| 64 65 66 61 75 6c 74 3a | 09 09 09 09 09 09 09 09 |default:|........|
|00002240| 09 09 09 09 09 2f 2f 20 | 42 65 65 70 20 6f 6e 20 |.....// |Beep on |
|00002250| 6f 74 68 65 72 20 63 6d | 64 20 6b 65 79 73 0d 20 |other cm|d keys. |
|00002260| 20 20 20 20 20 09 09 09 | 53 79 73 42 65 65 70 28 |     ...|SysBeep(|
|00002270| 32 29 3b 0d 09 09 09 09 | 09 09 62 72 65 61 6b 3b |2);.....|..break;|
|00002280| 0d 0d 09 09 09 09 09 7d | 20 2f 2f 20 65 6e 64 20 |.......}| // end |
|00002290| 73 77 69 74 63 68 0d 0d | 09 09 09 09 44 69 73 70 |switch..|....Disp|
|000022a0| 6f 73 48 61 6e 64 6c 65 | 28 73 74 72 48 61 6e 64 |osHandle|(strHand|
|000022b0| 6c 65 29 3b 09 09 09 09 | 09 09 2f 2f 20 52 65 6c |le);....|..// Rel|
|000022c0| 65 61 73 65 20 74 68 65 | 20 73 74 72 69 6e 67 0d |ease the| string.|
|000022d0| 09 20 20 09 09 7d 20 2f | 2f 20 65 6e 64 20 69 66 |.  ..} /|/ end if|
|000022e0| 0d 0d 20 20 09 09 72 65 | 74 75 72 6e 3b 0d 0d 09 |..  ..re|turn;...|
|000022f0| 09 63 61 73 65 20 75 70 | 64 61 74 65 45 76 74 3a |.case up|dateEvt:|
|00002300| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 2f 2f 20 |........|.....// |
|00002310| 45 76 65 6e 74 20 3d 20 | 55 50 44 41 54 45 20 45 |Event = |UPDATE E|
|00002320| 56 45 4e 54 0d 09 09 09 | 53 65 74 50 6f 72 74 28 |VENT....|SetPort(|
|00002330| 77 69 6e 64 6f 77 50 74 | 72 29 3b 09 09 09 09 09 |windowPt|r);.....|
|00002340| 09 09 09 09 09 2f 2f 20 | 55 73 65 20 44 41 20 77 |.....// |Use DA w|
|00002350| 69 6e 64 6f 77 0d 09 09 | 09 42 65 67 69 6e 55 70 |indow...|.BeginUp|
|00002360| 64 61 74 65 28 77 69 6e | 64 6f 77 50 74 72 29 3b |date(win|dowPtr);|
|00002370| 0d 09 09 09 64 72 61 77 | 57 69 6e 64 6f 77 28 29 |....draw|Window()|
|00002380| 3b 09 09 09 09 09 09 09 | 09 09 09 09 09 09 2f 2f |;.......|......//|
|00002390| 20 52 65 64 72 61 77 20 | 74 68 65 20 77 69 6e 64 | Redraw |the wind|
|000023a0| 6f 77 0d 09 09 09 64 73 | 70 57 69 6e 64 6f 77 54 |ow....ds|pWindowT|
|000023b0| 69 74 6c 65 28 6f 6c 64 | 46 72 6f 6e 74 57 69 6e |itle(old|FrontWin|
|000023c0| 64 6f 77 29 3b 09 09 09 | 09 2f 2f 20 44 69 73 70 |dow);...|.// Disp|
|000023d0| 6c 61 79 20 74 68 65 20 | 6e 65 77 20 77 69 6e 64 |lay the |new wind|
|000023e0| 6f 77 20 74 69 74 6c 65 | 0d 09 09 09 45 6e 64 55 |ow title|....EndU|
|000023f0| 70 64 61 74 65 28 77 69 | 6e 64 6f 77 50 74 72 29 |pdate(wi|ndowPtr)|
|00002400| 3b 0d 09 09 09 72 65 74 | 75 72 6e 3b 0d 0d 09 09 |;....ret|urn;....|
|00002410| 63 61 73 65 20 61 63 74 | 69 76 61 74 65 45 76 74 |case act|ivateEvt|
|00002420| 3a 09 09 09 09 09 09 09 | 09 09 09 09 09 2f 2f 20 |:.......|.....// |
|00002430| 45 76 65 6e 74 20 3d 20 | 41 43 54 49 56 41 54 45 |Event = |ACTIVATE|
|00002440| 20 45 56 45 4e 54 0d 09 | 09 09 64 73 70 4d 6f 75 | EVENT..|..dspMou|
|00002450| 73 65 50 6f 73 28 77 69 | 6e 64 6f 77 50 74 72 29 |sePos(wi|ndowPtr)|
|00002460| 3b 09 09 09 09 09 09 09 | 09 2f 2f 20 44 69 73 70 |;.......|.// Disp|
|00002470| 6c 61 79 20 74 68 65 20 | 6e 65 77 20 6d 6f 75 73 |lay the |new mous|
|00002480| 65 20 70 6f 73 69 74 69 | 6f 6e 0d 09 09 09 72 65 |e positi|on....re|
|00002490| 74 75 72 6e 3b 0d 0d 20 | 20 20 20 7d 20 2f 2f 20 |turn;.. |   } // |
|000024a0| 65 6e 64 20 73 77 69 74 | 63 68 0d 20 20 7d 20 2f |end swit|ch.  } /|
|000024b0| 2f 20 65 6e 64 20 64 6f | 45 76 65 6e 74 28 29 0d |/ end do|Event().|
|000024c0| 0d 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|000024d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 20 20 20 64 73 70 |--------|-.   dsp|
|00002510| 4d 6f 75 73 65 50 6f 73 | 28 29 0d 0d 20 20 20 20 |MousePos|()..    |
|00002520| 20 20 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 64 |  This r|outine d|
|00002530| 69 73 70 6c 61 79 73 20 | 74 68 65 20 70 6f 73 69 |isplays |the posi|
|00002540| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 6d 6f 75 73 |tion of |the mous|
|00002550| 65 2e 20 49 74 20 64 69 | 73 70 6c 61 79 73 20 74 |e. It di|splays t|
|00002560| 68 65 0d 20 20 20 20 66 | 6f 6c 6c 6f 77 69 6e 67 |he.    f|ollowing|
|00002570| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 2d 0d 0d | informa|tion -..|
|00002580| 09 09 09 2d 20 4c 6f 63 | 61 6c 20 61 6e 64 20 67 |...- Loc|al and g|
|00002590| 6c 6f 62 61 6c 20 63 6f | 6f 72 64 69 6e 61 74 65 |lobal co|ordinate|
|000025a0| 73 20 6f 66 20 74 68 65 | 20 63 75 72 73 6f 72 0d |s of the| cursor.|
|000025b0| 09 09 09 2d 20 22 46 61 | 74 20 42 69 74 73 22 20 |...- "Fa|t Bits" |
|000025c0| 64 69 73 70 6c 61 79 20 | 6f 66 20 61 20 72 65 63 |display |of a rec|
|000025d0| 74 61 6e 67 6c 65 20 61 | 72 6f 75 6e 64 20 74 68 |tangle a|round th|
|000025e0| 65 20 63 75 72 73 6f 72 | 0d 0d 2d 2d 2d 2d 2d 2d |e cursor|..------|
|000025f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002630| 2a 2f 0d 0d 64 73 70 4d | 6f 75 73 65 50 6f 73 28 |*/..dspM|ousePos(|
|00002640| 77 69 6e 64 6f 77 50 74 | 72 29 0d 20 20 57 69 6e |windowPt|r).  Win|
|00002650| 64 6f 77 50 74 72 20 77 | 69 6e 64 6f 77 50 74 72 |dowPtr w|indowPtr|
|00002660| 3b 0d 20 20 7b 0d 20 20 | 52 65 63 74 20 20 20 20 |;.  {.  |Rect    |
|00002670| 20 20 63 75 72 73 6f 72 | 52 65 63 74 3b 0d 20 20 |  cursor|Rect;.  |
|00002680| 57 69 6e 64 6f 77 50 74 | 72 20 6d 6f 75 73 65 57 |WindowPt|r mouseW|
|00002690| 69 6e 64 6f 77 3b 0d 20 | 20 73 68 6f 72 74 20 20 |indow;. | short  |
|000026a0| 20 20 20 77 69 6e 64 6f | 77 43 6f 64 65 3b 0d 20 |   windo|wCode;. |
|000026b0| 20 73 74 72 75 63 74 20 | 20 20 20 51 44 56 61 72 | struct |   QDVar|
|000026c0| 20 2a 6d 79 51 44 3b 09 | 09 09 09 09 09 09 09 09 | *myQD;.|........|
|000026d0| 09 09 2f 2f 20 50 6c 61 | 63 65 20 66 6f 72 20 63 |..// Pla|ce for c|
|000026e0| 6f 70 79 20 6f 66 20 51 | 44 20 70 6f 69 6e 74 65 |opy of Q|D pointe|
|000026f0| 72 0d 20 20 50 6f 69 6e | 74 20 20 20 20 20 6c 6f |r.  Poin|t     lo|
|00002700| 63 61 6c 50 74 2c 67 6c | 6f 62 61 6c 50 74 3b 0d |calPt,gl|obalPt;.|
|00002710| 0d 20 20 6d 79 51 44 20 | 3d 20 67 65 74 51 44 28 |.  myQD |= getQD(|
|00002720| 29 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |);......|........|
|00002730| 09 2f 2f 20 47 65 74 20 | 61 20 63 6f 70 79 20 6f |.// Get |a copy o|
|00002740| 66 20 51 44 20 70 6f 69 | 6e 74 65 72 0d 0d 20 20 |f QD poi|nter..  |
|00002750| 47 65 74 4d 6f 75 73 65 | 28 26 6c 6f 63 61 6c 50 |GetMouse|(&localP|
|00002760| 74 29 3b 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |t);.....|........|
|00002770| 2f 2f 20 47 65 74 20 74 | 68 65 20 6e 65 77 20 6d |// Get t|he new m|
|00002780| 6f 75 73 65 20 70 6f 73 | 69 74 69 6f 6e 0d 20 20 |ouse pos|ition.  |
|00002790| 67 6c 6f 62 61 6c 50 74 | 20 3d 20 6c 6f 63 61 6c |globalPt| = local|
|000027a0| 50 74 3b 0d 20 20 4c 6f | 63 61 6c 54 6f 47 6c 6f |Pt;.  Lo|calToGlo|
|000027b0| 62 61 6c 28 26 67 6c 6f | 62 61 6c 50 74 29 3b 09 |bal(&glo|balPt);.|
|000027c0| 09 09 09 09 09 09 09 09 | 09 2f 2f 20 43 6f 6e 76 |........|.// Conv|
|000027d0| 65 72 74 20 69 74 20 74 | 6f 20 67 6c 6f 62 61 6c |ert it t|o global|
|000027e0| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 0d 0d 20 20 | coordin|ates..  |
|000027f0| 69 66 20 28 21 45 71 75 | 61 6c 50 74 28 26 67 6c |if (!Equ|alPt(&gl|
|00002800| 6f 62 61 6c 50 74 2c 26 | 6f 6c 64 50 74 29 29 09 |obalPt,&|oldPt)).|
|00002810| 09 09 09 09 09 09 2f 2f | 20 48 61 73 20 74 68 65 |......//| Has the|
|00002820| 20 6d 6f 75 73 65 20 6d | 6f 76 65 64 3f 0d 09 09 | mouse m|oved?...|
|00002830| 7b 0d 20 20 20 20 6f 6c | 64 50 74 20 3d 20 67 6c |{.    ol|dPt = gl|
|00002840| 6f 62 61 6c 50 74 3b 09 | 09 09 09 09 09 09 09 09 |obalPt;.|........|
|00002850| 09 09 09 09 2f 2f 20 59 | 20 2d 20 72 65 6d 65 6d |....// Y| - remem|
|00002860| 62 65 72 20 77 68 65 72 | 65 20 69 74 20 6e 6f 77 |ber wher|e it now|
|00002870| 20 69 73 0d 0d 20 20 20 | 20 77 69 6e 64 6f 77 43 | is..   | windowC|
|00002880| 6f 64 65 20 3d 20 46 69 | 6e 64 57 69 6e 64 6f 77 |ode = Fi|ndWindow|
|00002890| 28 26 67 6c 6f 62 61 6c | 50 74 2c 09 09 09 09 2f |(&global|Pt,..../|
|000028a0| 2f 20 44 65 74 65 72 6d | 69 6e 65 20 74 68 65 20 |/ Determ|ine the |
|000028b0| 77 69 6e 64 6f 77 20 74 | 68 65 20 6d 6f 75 73 65 |window t|he mouse|
|000028c0| 20 69 73 20 6e 6f 77 20 | 69 6e 0d 09 09 09 09 09 | is now |in......|
|000028d0| 09 09 09 09 09 09 09 09 | 09 26 6d 6f 75 73 65 57 |........|.&mouseW|
|000028e0| 69 6e 64 6f 77 29 3b 0d | 0d 20 20 20 20 69 66 20 |indow);.|.    if |
|000028f0| 28 6f 6c 64 46 72 6f 6e | 74 57 69 6e 64 6f 77 20 |(oldFron|tWindow |
|00002900| 21 3d 20 6d 6f 75 73 65 | 57 69 6e 64 6f 77 29 09 |!= mouse|Window).|
|00002910| 09 09 09 2f 2f 20 49 73 | 20 6d 6f 75 73 65 20 69 |...// Is| mouse i|
|00002920| 6e 20 61 20 64 69 66 66 | 65 72 65 6e 74 20 77 69 |n a diff|erent wi|
|00002930| 6e 64 6f 77 3f 0d 20 20 | 20 20 20 20 64 73 70 57 |ndow?.  |    dspW|
|00002940| 69 6e 64 6f 77 54 69 74 | 6c 65 28 6f 6c 64 46 72 |indowTit|le(oldFr|
|00002950| 6f 6e 74 57 69 6e 64 6f | 77 20 3d 20 09 09 09 09 |ontWindo|w = ....|
|00002960| 2f 2f 20 59 20 2d 20 44 | 69 73 70 6c 61 79 20 74 |// Y - D|isplay t|
|00002970| 68 65 20 74 69 74 6c 65 | 20 6f 66 20 74 68 65 20 |he title| of the |
|00002980| 6e 65 77 20 77 69 6e 64 | 6f 77 0d 20 20 20 20 20 |new wind|ow.     |
|00002990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000029a0| 20 6d 6f 75 73 65 57 69 | 6e 64 6f 77 29 3b 0d 0d | mouseWi|ndow);..|
|000029b0| 20 20 20 20 69 66 20 28 | 6d 6f 75 73 65 57 69 6e |    if (|mouseWin|
|000029c0| 64 6f 77 29 09 09 09 09 | 09 09 09 09 09 09 09 09 |dow)....|........|
|000029d0| 09 2f 2f 20 49 73 20 74 | 68 65 20 6d 6f 75 73 65 |.// Is t|he mouse|
|000029e0| 20 6f 6e 20 74 68 65 20 | 44 65 73 6b 74 6f 70 3f | on the |Desktop?|
|000029f0| 0d 20 20 20 20 20 20 7b | 09 09 09 09 09 09 09 09 |.      {|........|
|00002a00| 09 09 09 09 09 09 09 09 | 09 09 09 09 2f 2f 20 4e |........|....// N|
|00002a10| 20 2d 20 67 65 74 20 61 | 6e 64 20 64 69 73 70 6c | - get a|nd displ|
|00002a20| 61 79 20 74 68 65 20 6c | 6f 63 61 6c 20 63 6f 6f |ay the l|ocal coo|
|00002a30| 72 64 69 6e 61 74 65 73 | 0d 20 20 20 20 20 20 53 |rdinates|.      S|
|00002a40| 65 74 50 6f 72 74 28 6d | 6f 75 73 65 57 69 6e 64 |etPort(m|ouseWind|
|00002a50| 6f 77 29 3b 09 09 09 09 | 09 09 09 09 09 09 2f 2f |ow);....|......//|
|00002a60| 20 47 65 74 20 6c 6f 63 | 61 6c 20 63 6f 6f 72 64 | Get loc|al coord|
|00002a70| 27 73 20 6f 66 20 77 69 | 6e 64 6f 77 20 74 68 65 |'s of wi|ndow the|
|00002a80| 20 6d 6f 75 73 65 20 69 | 73 20 69 6e 0d 20 20 20 | mouse i|s in.   |
|00002a90| 20 20 20 6c 6f 63 61 6c | 50 74 20 3d 20 67 6c 6f |   local|Pt = glo|
|00002aa0| 62 61 6c 50 74 3b 0d 20 | 20 20 20 20 20 47 6c 6f |balPt;. |     Glo|
|00002ab0| 62 61 6c 54 6f 4c 6f 63 | 61 6c 28 26 6c 6f 63 61 |balToLoc|al(&loca|
|00002ac0| 6c 50 74 29 3b 0d 0d 20 | 20 20 20 20 20 4e 75 6d |lPt);.. |     Num|
|00002ad0| 54 6f 53 74 72 69 6e 67 | 28 6c 6f 63 61 6c 50 74 |ToString|(localPt|
|00002ae0| 2e 68 2c 26 6c 6f 63 61 | 6c 48 53 74 72 29 3b 09 |.h,&loca|lHStr);.|
|00002af0| 09 09 2f 2f 20 43 6f 6e | 76 65 72 74 20 6c 6f 63 |..// Con|vert loc|
|00002b00| 61 6c 20 63 6f 6f 72 64 | 27 73 20 74 6f 20 73 74 |al coord|'s to st|
|00002b10| 72 69 6e 67 73 0d 20 20 | 20 20 20 20 4e 75 6d 54 |rings.  |    NumT|
|00002b20| 6f 53 74 72 69 6e 67 28 | 6c 6f 63 61 6c 50 74 2e |oString(|localPt.|
|00002b30| 76 2c 26 6c 6f 63 61 6c | 56 53 74 72 29 3b 0d 0d |v,&local|VStr);..|
|00002b40| 20 20 20 20 20 20 6c 6f | 63 61 6c 48 53 74 72 2e |      lo|calHStr.|
|00002b50| 73 5b 6c 6f 63 61 6c 48 | 53 74 72 2e 63 6f 75 6e |s[localH|Str.coun|
|00002b60| 74 2b 2b 5d 3d 27 68 27 | 3b 09 09 09 2f 2f 20 41 |t++]='h'|;...// A|
|00002b70| 64 64 20 69 6e 20 27 68 | 27 20 61 6e 64 20 27 76 |dd in 'h|' and 'v|
|00002b80| 27 20 63 68 61 72 61 63 | 74 65 72 73 0d 20 20 20 |' charac|ters.   |
|00002b90| 20 20 20 6c 6f 63 61 6c | 56 53 74 72 2e 73 5b 6c |   local|VStr.s[l|
|00002ba0| 6f 63 61 6c 56 53 74 72 | 2e 63 6f 75 6e 74 2b 2b |ocalVStr|.count++|
|00002bb0| 5d 3d 27 76 27 3b 0d 20 | 20 20 20 20 20 6c 6f 63 |]='v';. |     loc|
|00002bc0| 61 6c 56 53 74 72 2e 73 | 5b 6c 6f 63 61 6c 56 53 |alVStr.s|[localVS|
|00002bd0| 74 72 2e 63 6f 75 6e 74 | 2b 2b 5d 3d 27 5c 6e 27 |tr.count|++]='\n'|
|00002be0| 3b 09 09 2f 2f 20 41 64 | 64 20 43 52 20 74 6f 20 |;..// Ad|d CR to |
|00002bf0| 6c 6f 63 61 6c 20 63 6f | 6f 72 64 27 73 20 28 75 |local co|ord's (u|
|00002c00| 73 65 64 20 69 6e 20 43 | 75 74 20 6f 72 20 43 6f |sed in C|ut or Co|
|00002c10| 70 79 29 0d 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |py).    |  }.    |
|00002c20| 65 6c 73 65 0d 20 20 20 | 20 20 20 6c 6f 63 61 6c |else.   |   local|
|00002c30| 48 53 74 72 2e 63 6f 75 | 6e 74 3d 6c 6f 63 61 6c |HStr.cou|nt=local|
|00002c40| 56 53 74 72 2e 63 6f 75 | 6e 74 3d 30 3b 09 09 09 |VStr.cou|nt=0;...|
|00002c50| 2f 2f 20 59 20 2d 20 64 | 6f 6e 27 74 20 64 69 73 |// Y - d|on't dis|
|00002c60| 70 6c 61 79 20 6c 6f 63 | 61 6c 20 63 6f 6f 72 64 |play loc|al coord|
|00002c70| 27 73 20 77 68 65 6e 20 | 6f 6e 20 64 65 73 6b 74 |'s when |on deskt|
|00002c80| 6f 70 0d 0d 20 20 20 20 | 53 65 74 50 6f 72 74 28 |op..    |SetPort(|
|00002c90| 77 69 6e 64 6f 77 50 74 | 72 29 3b 09 09 09 09 09 |windowPt|r);.....|
|00002ca0| 09 09 09 09 09 09 09 2f | 2f 20 44 72 61 77 20 69 |......./|/ Draw i|
|00002cb0| 6e 20 64 65 73 6b 20 61 | 63 63 20 77 69 6e 64 6f |n desk a|cc windo|
|00002cc0| 77 0d 0d 20 20 20 20 4e | 75 6d 54 6f 53 74 72 69 |w..    N|umToStri|
|00002cd0| 6e 67 28 67 6c 6f 62 61 | 6c 50 74 2e 68 2c 26 67 |ng(globa|lPt.h,&g|
|00002ce0| 6c 6f 62 61 6c 48 53 74 | 72 29 3b 09 09 09 2f 2f |lobalHSt|r);...//|
|00002cf0| 20 43 6f 6e 76 65 72 74 | 20 67 6c 6f 62 61 6c 20 | Convert| global |
|00002d00| 63 6f 6f 72 64 27 73 20 | 74 6f 20 73 74 72 69 6e |coord's |to strin|
|00002d10| 67 73 0d 20 20 20 20 4e | 75 6d 54 6f 53 74 72 69 |gs.    N|umToStri|
|00002d20| 6e 67 28 67 6c 6f 62 61 | 6c 50 74 2e 76 2c 26 67 |ng(globa|lPt.v,&g|
|00002d30| 6c 6f 62 61 6c 56 53 74 | 72 29 3b 0d 0d 20 20 20 |lobalVSt|r);..   |
|00002d40| 20 67 6c 6f 62 61 6c 48 | 53 74 72 2e 73 5b 67 6c | globalH|Str.s[gl|
|00002d50| 6f 62 61 6c 48 53 74 72 | 2e 63 6f 75 6e 74 2b 2b |obalHStr|.count++|
|00002d60| 5d 3d 27 68 27 3b 09 09 | 09 2f 2f 20 41 64 64 20 |]='h';..|.// Add |
|00002d70| 69 6e 20 27 68 27 20 61 | 6e 64 20 27 76 27 20 63 |in 'h' a|nd 'v' c|
|00002d80| 68 61 72 61 63 74 65 72 | 73 0d 20 20 20 20 67 6c |haracter|s.    gl|
|00002d90| 6f 62 61 6c 56 53 74 72 | 2e 73 5b 67 6c 6f 62 61 |obalVStr|.s[globa|
|00002da0| 6c 56 53 74 72 2e 63 6f | 75 6e 74 2b 2b 5d 3d 27 |lVStr.co|unt++]='|
|00002db0| 76 27 3b 0d 20 20 20 20 | 67 6c 6f 62 61 6c 56 53 |v';.    |globalVS|
|00002dc0| 74 72 2e 73 5b 67 6c 6f | 62 61 6c 56 53 74 72 2e |tr.s[glo|balVStr.|
|00002dd0| 63 6f 75 6e 74 2b 2b 5d | 3d 27 5c 6e 27 3b 09 09 |count++]|='\n';..|
|00002de0| 2f 2f 20 41 64 64 20 43 | 52 20 74 6f 20 67 6c 6f |// Add C|R to glo|
|00002df0| 62 61 6c 20 63 6f 6f 72 | 64 27 73 20 28 75 73 65 |bal coor|d's (use|
|00002e00| 64 20 69 6e 20 43 75 74 | 20 6f 72 20 43 6f 70 79 |d in Cut| or Copy|
|00002e10| 29 0d 0d 20 20 20 20 54 | 65 78 74 42 6f 78 28 67 |)..    T|extBox(g|
|00002e20| 6c 6f 62 61 6c 48 53 74 | 72 2e 73 2c 67 6c 6f 62 |lobalHSt|r.s,glob|
|00002e30| 61 6c 48 53 74 72 2e 63 | 6f 75 6e 74 2c 09 09 2f |alHStr.c|ount,../|
|00002e40| 2f 20 44 69 73 70 6c 61 | 79 20 67 6c 6f 62 61 6c |/ Displa|y global|
|00002e50| 20 63 6f 6f 72 64 27 73 | 0d 20 20 20 20 20 20 20 | coord's|.       |
|00002e60| 20 20 20 20 20 26 67 6c | 6f 62 61 6c 48 52 65 63 |     &gl|obalHRec|
|00002e70| 74 2c 2d 31 29 3b 0d 20 | 20 20 20 54 65 78 74 42 |t,-1);. |   TextB|
|00002e80| 6f 78 28 67 6c 6f 62 61 | 6c 56 53 74 72 2e 73 2c |ox(globa|lVStr.s,|
|00002e90| 67 6c 6f 62 61 6c 56 53 | 74 72 2e 63 6f 75 6e 74 |globalVS|tr.count|
|00002ea0| 2c 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 26 67 |,.      |      &g|
|00002eb0| 6c 6f 62 61 6c 56 52 65 | 63 74 2c 2d 31 29 3b 0d |lobalVRe|ct,-1);.|
|00002ec0| 0d 20 20 20 20 54 65 78 | 74 42 6f 78 28 6c 6f 63 |.    Tex|tBox(loc|
|00002ed0| 61 6c 48 53 74 72 2e 73 | 2c 6c 6f 63 61 6c 48 53 |alHStr.s|,localHS|
|00002ee0| 74 72 2e 63 6f 75 6e 74 | 2c 09 09 09 2f 2f 20 44 |tr.count|,...// D|
|00002ef0| 69 73 70 6c 61 79 20 6c | 6f 63 61 6c 20 63 6f 6f |isplay l|ocal coo|
|00002f00| 72 64 27 73 0d 20 20 20 | 20 20 20 20 20 20 20 20 |rd's.   |        |
|00002f10| 20 26 6c 6f 63 61 6c 48 | 52 65 63 74 2c 2d 31 29 | &localH|Rect,-1)|
|00002f20| 3b 0d 20 20 20 20 54 65 | 78 74 42 6f 78 28 6c 6f |;.    Te|xtBox(lo|
|00002f30| 63 61 6c 56 53 74 72 2e | 73 2c 6c 6f 63 61 6c 56 |calVStr.|s,localV|
|00002f40| 53 74 72 2e 63 6f 75 6e | 74 2c 0d 20 20 20 20 20 |Str.coun|t,.     |
|00002f50| 20 20 20 20 20 20 20 26 | 6c 6f 63 61 6c 56 52 65 |       &|localVRe|
|00002f60| 63 74 2c 2d 31 29 3b 0d | 0d 0d 20 20 20 20 53 65 |ct,-1);.|..    Se|
|00002f70| 74 52 65 63 74 28 26 63 | 75 72 73 6f 72 52 65 63 |tRect(&c|ursorRec|
|00002f80| 74 2c 09 09 09 09 09 09 | 09 09 09 09 09 2f 2f 20 |t,......|.....// |
|00002f90| 53 65 74 20 75 70 20 74 | 6f 70 20 6c 65 66 74 20 |Set up t|op left |
|00002fa0| 22 46 61 74 20 42 69 74 | 73 22 20 72 65 63 74 0d |"Fat Bit|s" rect.|
|00002fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 67 6c 6f 62 |        |    glob|
|00002fc0| 61 6c 50 74 2e 68 2d 31 | 32 2c 67 6c 6f 62 61 6c |alPt.h-1|2,global|
|00002fd0| 50 74 2e 76 2d 38 2c 0d | 09 20 20 20 09 09 09 09 |Pt.v-8,.|.   ....|
|00002fe0| 67 6c 6f 62 61 6c 50 74 | 2e 68 2c 20 20 20 67 6c |globalPt|.h,   gl|
|00002ff0| 6f 62 61 6c 50 74 2e 76 | 29 3b 0d 20 20 20 20 43 |obalPt.v|);.    C|
|00003000| 6f 70 79 42 69 74 73 28 | 26 6d 79 51 44 2d 3e 73 |opyBits(|&myQD->s|
|00003010| 63 72 65 65 6e 42 69 74 | 73 2c 09 09 09 09 09 09 |creenBit|s,......|
|00003020| 09 09 2f 2f 20 44 69 73 | 70 6c 61 79 20 74 68 65 |..// Dis|play the|
|00003030| 20 74 6f 70 20 6c 65 66 | 74 20 22 46 61 74 20 42 | top lef|t "Fat B|
|00003040| 69 74 73 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |its.    |        |
|00003050| 20 26 77 69 6e 64 6f 77 | 50 74 72 2d 3e 70 6f 72 | &window|Ptr->por|
|00003060| 74 42 69 74 73 2c 0d 09 | 09 09 09 09 09 20 26 63 |tBits,..|..... &c|
|00003070| 75 72 73 6f 72 52 65 63 | 74 2c 26 66 42 54 6f 70 |ursorRec|t,&fBTop|
|00003080| 4c 65 66 74 52 65 63 74 | 2c 73 72 63 43 6f 70 79 |LeftRect|,srcCopy|
|00003090| 2c 30 29 3b 0d 0d 0d 20 | 20 20 20 53 65 74 52 65 |,0);... |   SetRe|
|000030a0| 63 74 28 26 63 75 72 73 | 6f 72 52 65 63 74 2c 09 |ct(&curs|orRect,.|
|000030b0| 09 09 09 09 09 09 09 09 | 09 09 2f 2f 20 53 65 74 |........|..// Set|
|000030c0| 20 75 70 20 62 6f 74 74 | 6f 6d 20 6c 65 66 74 20 | up bott|om left |
|000030d0| 22 46 61 74 20 42 69 74 | 73 22 20 72 65 63 74 0d |"Fat Bit|s" rect.|
|000030e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 67 6c 6f 62 |        |    glob|
|000030f0| 61 6c 50 74 2e 68 2d 31 | 32 2c 67 6c 6f 62 61 6c |alPt.h-1|2,global|
|00003100| 50 74 2e 76 2c 0d 09 09 | 09 09 09 09 67 6c 6f 62 |Pt.v,...|....glob|
|00003110| 61 6c 50 74 2e 68 2c 20 | 20 20 67 6c 6f 62 61 6c |alPt.h, |  global|
|00003120| 50 74 2e 76 2b 38 29 3b | 0d 20 20 20 20 43 6f 70 |Pt.v+8);|.    Cop|
|00003130| 79 42 69 74 73 28 26 6d | 79 51 44 2d 3e 73 63 72 |yBits(&m|yQD->scr|
|00003140| 65 65 6e 42 69 74 73 2c | 09 09 09 09 09 09 09 09 |eenBits,|........|
|00003150| 2f 2f 20 44 69 73 70 6c | 61 79 20 62 6f 74 74 6f |// Displ|ay botto|
|00003160| 6d 20 6c 65 66 74 20 22 | 46 61 74 20 42 69 74 73 |m left "|Fat Bits|
|00003170| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 |".      |       &|
|00003180| 77 69 6e 64 6f 77 50 74 | 72 2d 3e 70 6f 72 74 42 |windowPt|r->portB|
|00003190| 69 74 73 2c 0d 09 09 09 | 09 09 09 20 26 63 75 72 |its,....|... &cur|
|000031a0| 73 6f 72 52 65 63 74 2c | 26 66 42 42 6f 74 4c 65 |sorRect,|&fBBotLe|
|000031b0| 66 74 52 65 63 74 2c 73 | 72 63 43 6f 70 79 2c 30 |ftRect,s|rcCopy,0|
|000031c0| 29 3b 0d 0d 0d 20 20 20 | 20 53 65 74 52 65 63 74 |);...   | SetRect|
|000031d0| 28 26 63 75 72 73 6f 72 | 52 65 63 74 2c 09 09 09 |(&cursor|Rect,...|
|000031e0| 09 09 09 09 09 09 09 09 | 2f 2f 20 53 65 74 20 75 |........|// Set u|
|000031f0| 70 20 62 6f 74 74 6f 6d | 20 72 69 67 68 74 20 22 |p bottom| right "|
|00003200| 46 61 74 20 42 69 74 73 | 22 20 72 65 63 74 0d 20 |Fat Bits|" rect. |
|00003210| 20 20 20 20 20 20 20 20 | 20 20 20 67 6c 6f 62 61 |        |   globa|
|00003220| 6c 50 74 2e 68 2c 20 20 | 20 67 6c 6f 62 61 6c 50 |lPt.h,  | globalP|
|00003230| 74 2e 76 2c 0d 09 09 09 | 09 09 09 67 6c 6f 62 61 |t.v,....|...globa|
|00003240| 6c 50 74 2e 68 2b 31 32 | 2c 67 6c 6f 62 61 6c 50 |lPt.h+12|,globalP|
|00003250| 74 2e 76 2b 38 29 3b 0d | 20 20 20 20 43 6f 70 79 |t.v+8);.|    Copy|
|00003260| 42 69 74 73 28 26 6d 79 | 51 44 2d 3e 73 63 72 65 |Bits(&my|QD->scre|
|00003270| 65 6e 42 69 74 73 2c 09 | 09 09 09 09 09 09 09 2f |enBits,.|......./|
|00003280| 2f 20 44 69 73 70 6c 61 | 79 20 62 6f 74 74 6f 6d |/ Displa|y bottom|
|00003290| 20 72 69 67 68 74 20 22 | 46 61 74 20 42 69 74 73 | right "|Fat Bits|
|000032a0| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 |".      |       &|
|000032b0| 77 69 6e 64 6f 77 50 74 | 72 2d 3e 70 6f 72 74 42 |windowPt|r->portB|
|000032c0| 69 74 73 2c 0d 09 09 09 | 09 09 09 20 26 63 75 72 |its,....|... &cur|
|000032d0| 73 6f 72 52 65 63 74 2c | 26 66 42 42 6f 74 52 69 |sorRect,|&fBBotRi|
|000032e0| 67 68 74 52 65 63 74 2c | 73 72 63 43 6f 70 79 2c |ghtRect,|srcCopy,|
|000032f0| 30 29 3b 0d 0d 0d 20 20 | 20 20 53 65 74 52 65 63 |0);...  |  SetRec|
|00003300| 74 28 26 63 75 72 73 6f | 72 52 65 63 74 2c 09 09 |t(&curso|rRect,..|
|00003310| 09 09 09 09 09 09 09 09 | 09 2f 2f 20 53 65 74 20 |........|.// Set |
|00003320| 75 70 20 74 6f 70 20 72 | 69 67 68 74 20 22 46 61 |up top r|ight "Fa|
|00003330| 74 20 42 69 74 73 22 20 | 72 65 63 74 0d 20 20 20 |t Bits" |rect.   |
|00003340| 20 20 20 20 20 20 20 20 | 20 67 6c 6f 62 61 6c 50 |        | globalP|
|00003350| 74 2e 68 2c 20 20 20 67 | 6c 6f 62 61 6c 50 74 2e |t.h,   g|lobalPt.|
|00003360| 76 2d 38 2c 0d 09 09 09 | 09 09 09 67 6c 6f 62 61 |v-8,....|...globa|
|00003370| 6c 50 74 2e 68 2b 31 32 | 2c 67 6c 6f 62 61 6c 50 |lPt.h+12|,globalP|
|00003380| 74 2e 76 29 3b 0d 20 20 | 20 20 43 6f 70 79 42 69 |t.v);.  |  CopyBi|
|00003390| 74 73 28 26 6d 79 51 44 | 2d 3e 73 63 72 65 65 6e |ts(&myQD|->screen|
|000033a0| 42 69 74 73 2c 09 09 09 | 09 09 09 09 09 2f 2f 20 |Bits,...|.....// |
|000033b0| 44 69 73 70 6c 61 79 20 | 74 6f 70 20 72 69 67 68 |Display |top righ|
|000033c0| 74 20 22 46 61 74 20 42 | 69 74 73 22 0d 20 20 20 |t "Fat B|its".   |
|000033d0| 20 20 20 20 20 20 20 20 | 20 20 26 77 69 6e 64 6f |        |  &windo|
|000033e0| 77 50 74 72 2d 3e 70 6f | 72 74 42 69 74 73 2c 0d |wPtr->po|rtBits,.|
|000033f0| 09 09 09 09 09 09 20 26 | 63 75 72 73 6f 72 52 65 |...... &|cursorRe|
|00003400| 63 74 2c 26 66 42 54 6f | 70 52 69 67 68 74 52 65 |ct,&fBTo|pRightRe|
|00003410| 63 74 2c 73 72 63 43 6f | 70 79 2c 30 29 3b 0d 0d |ct,srcCo|py,0);..|
|00003420| 20 20 20 20 7d 20 2f 2f | 20 65 6e 64 69 66 0d 20 |    } //| endif. |
|00003430| 20 7d 20 2f 2f 20 65 6e | 64 20 64 73 70 4d 6f 75 | } // en|d dspMou|
|00003440| 73 65 50 6f 73 28 29 0d | 0d 2f 2a 2d 2d 2d 2d 2d |sePos().|./*-----|
|00003450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003490| 2d 0d 20 20 20 64 73 70 | 57 69 6e 64 6f 77 54 69 |-.   dsp|WindowTi|
|000034a0| 74 6c 65 28 29 0d 0d 20 | 20 20 20 20 20 54 68 69 |tle().. |     Thi|
|000034b0| 73 20 72 6f 75 74 69 6e | 65 20 64 69 73 70 6c 61 |s routin|e displa|
|000034c0| 79 73 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |ys the n|ame of t|
|000034d0| 68 65 20 77 69 6e 64 6f | 77 20 70 61 73 73 65 64 |he windo|w passed|
|000034e0| 20 74 6f 20 69 74 20 69 | 6e 20 74 68 65 0d 20 20 | to it i|n the.  |
|000034f0| 20 20 20 20 77 69 6e 64 | 6f 77 20 74 69 74 6c 65 |    wind|ow title|
|00003500| 20 72 65 63 74 61 6e 67 | 6c 65 2e 0d 0d 2d 2d 2d | rectang|le...---|
|00003510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003550| 2d 2d 2d 2a 2f 0d 64 73 | 70 57 69 6e 64 6f 77 54 |---*/.ds|pWindowT|
|00003560| 69 74 6c 65 28 77 69 6e | 64 6f 77 50 74 72 29 0d |itle(win|dowPtr).|
|00003570| 20 20 57 69 6e 64 6f 77 | 50 74 72 20 77 69 6e 64 |  Window|Ptr wind|
|00003580| 6f 77 50 74 72 3b 0d 20 | 20 7b 0d 20 20 69 66 20 |owPtr;. | {.  if |
|00003590| 28 77 69 6e 64 6f 77 50 | 74 72 29 09 09 09 09 09 |(windowP|tr).....|
|000035a0| 09 09 09 09 09 09 09 09 | 09 09 2f 2f 20 49 73 20 |........|..// Is |
|000035b0| 74 68 65 20 6d 6f 75 73 | 65 20 69 6e 20 61 20 72 |the mous|e in a r|
|000035c0| 65 61 6c 20 77 69 6e 64 | 6f 77 3f 0d 20 20 20 20 |eal wind|ow?.    |
|000035d0| 47 65 74 57 54 69 74 6c | 65 28 77 69 6e 64 6f 77 |GetWTitl|e(window|
|000035e0| 50 74 72 2c 26 77 69 6e | 64 6f 77 54 29 3b 09 09 |Ptr,&win|dowT);..|
|000035f0| 09 09 09 09 2f 2f 20 59 | 20 2d 20 64 69 73 70 6c |....// Y| - displ|
|00003600| 61 79 20 74 68 65 20 6e | 65 77 20 77 69 6e 64 6f |ay the n|ew windo|
|00003610| 77 27 73 20 6e 61 6d 65 | 0d 20 20 65 6c 73 65 09 |w's name|.  else.|
|00003620| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00003630| 09 09 09 2f 2f 20 4e 20 | 2d 20 64 69 73 70 6c 61 |...// N |- displa|
|00003640| 79 20 74 68 65 20 64 65 | 73 6b 74 6f 70 20 6e 61 |y the de|sktop na|
|00003650| 6d 65 0d 20 20 20 20 42 | 6c 6f 63 6b 4d 6f 76 65 |me.    B|lockMove|
|00003660| 28 26 64 65 73 6b 54 6f | 70 54 69 74 6c 65 5b 30 |(&deskTo|pTitle[0|
|00003670| 5d 2c 26 77 69 6e 64 6f | 77 54 2c 64 65 73 6b 54 |],&windo|wT,deskT|
|00003680| 6f 70 54 69 74 6c 65 5b | 30 5d 2b 31 29 3b 0d 0d |opTitle[|0]+1);..|
|00003690| 20 20 54 65 78 74 42 6f | 78 28 77 69 6e 64 6f 77 |  TextBo|x(window|
|000036a0| 54 2e 73 2c 77 69 6e 64 | 6f 77 54 2e 63 6f 75 6e |T.s,wind|owT.coun|
|000036b0| 74 2c 26 74 69 74 6c 65 | 52 65 63 74 2c 31 29 3b |t,&title|Rect,1);|
|000036c0| 0d 20 20 77 69 6e 64 6f | 77 54 2e 73 5b 77 69 6e |.  windo|wT.s[win|
|000036d0| 64 6f 77 54 2e 63 6f 75 | 6e 74 2b 2b 5d 20 3d 20 |dowT.cou|nt++] = |
|000036e0| 27 5c 6e 27 3b 09 09 09 | 09 09 2f 2f 20 41 64 64 |'\n';...|..// Add|
|000036f0| 20 43 52 20 74 6f 20 77 | 69 6e 64 6f 77 20 74 69 | CR to w|indow ti|
|00003700| 74 6c 65 20 28 75 73 65 | 64 20 69 6e 20 43 75 74 |tle (use|d in Cut|
|00003710| 20 6f 72 20 43 6f 70 79 | 29 0d 0d 09 7d 20 2f 2f | or Copy|)...} //|
|00003720| 20 65 6e 64 20 64 73 70 | 57 69 6e 64 6f 77 54 69 | end dsp|WindowTi|
|00003730| 74 6c 65 28 29 0d 0d 2f | 2a 2d 2d 2d 2d 2d 2d 2d |tle()../|*-------|
|00003740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00003780| 20 20 20 64 72 61 77 57 | 69 6e 64 6f 77 28 29 20 |   drawW|indow() |
|00003790| 2d 0d 0d 20 20 20 20 20 | 20 54 68 69 73 20 72 6f |-..     | This ro|
|000037a0| 75 74 69 6e 65 20 64 72 | 61 77 73 20 74 68 65 20 |utine dr|aws the |
|000037b0| 22 73 74 61 74 69 63 22 | 20 70 6f 72 74 69 6f 6e |"static"| portion|
|000037c0| 20 6f 66 20 74 68 65 20 | 77 69 6e 64 6f 77 2e 0d | of the |window..|
|000037d0| 0d 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.  -----|--------|
|000037e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 64 72 61 77 |--------|-*/.draw|
|00003820| 57 69 6e 64 6f 77 28 29 | 0d 20 20 7b 0d 20 20 73 |Window()|.  {.  s|
|00003830| 74 72 75 63 74 20 20 20 | 20 51 44 56 61 72 20 2a |truct   | QDVar *|
|00003840| 6d 79 51 44 3b 09 09 09 | 09 09 09 09 09 09 09 09 |myQD;...|........|
|00003850| 2f 2f 20 50 6c 61 63 65 | 20 66 6f 72 20 63 6f 70 |// Place| for cop|
|00003860| 79 20 6f 66 20 51 44 20 | 70 6f 69 6e 74 65 72 0d |y of QD |pointer.|
|00003870| 0d 20 20 6d 79 51 44 20 | 3d 20 67 65 74 51 44 28 |.  myQD |= getQD(|
|00003880| 29 3b 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |);......|........|
|00003890| 09 2f 2f 20 47 65 74 20 | 61 20 63 6f 70 79 20 6f |.// Get |a copy o|
|000038a0| 66 20 51 44 20 70 6f 69 | 6e 74 65 72 0d 0d 20 20 |f QD poi|nter..  |
|000038b0| 4d 6f 76 65 54 6f 28 67 | 6c 6f 62 61 6c 53 74 72 |MoveTo(g|lobalStr|
|000038c0| 52 65 63 74 2e 6c 65 66 | 74 2c 09 09 09 09 09 09 |Rect.lef|t,......|
|000038d0| 09 09 09 2f 2f 20 44 72 | 61 77 20 22 47 22 0d 20 |...// Dr|aw "G". |
|000038e0| 20 20 20 20 20 20 20 20 | 67 6c 6f 62 61 6c 53 74 |        |globalSt|
|000038f0| 72 52 65 63 74 2e 62 6f | 74 74 6f 6d 20 2d 20 31 |rRect.bo|ttom - 1|
|00003900| 20 29 3b 0d 20 20 44 72 | 61 77 43 68 61 72 28 27 | );.  Dr|awChar('|
|00003910| 47 27 29 3b 0d 0d 20 20 | 4d 6f 76 65 54 6f 28 6c |G');..  |MoveTo(l|
|00003920| 6f 63 61 6c 53 74 72 52 | 65 63 74 2e 6c 65 66 74 |ocalStrR|ect.left|
|00003930| 2c 09 09 09 09 09 09 09 | 09 09 09 2f 2f 20 44 72 |,.......|...// Dr|
|00003940| 61 77 20 22 4c 22 0d 20 | 20 20 20 20 20 20 20 20 |aw "L". |        |
|00003950| 6c 6f 63 61 6c 53 74 72 | 52 65 63 74 2e 62 6f 74 |localStr|Rect.bot|
|00003960| 74 6f 6d 20 2d 20 31 29 | 3b 0d 20 20 44 72 61 77 |tom - 1)|;.  Draw|
|00003970| 43 68 61 72 28 27 4c 27 | 29 3b 0d 0d 20 20 4d 6f |Char('L'|);..  Mo|
|00003980| 76 65 54 6f 28 30 2c 74 | 69 74 6c 65 52 65 63 74 |veTo(0,t|itleRect|
|00003990| 2e 62 6f 74 74 6f 6d 29 | 3b 09 09 09 09 09 09 09 |.bottom)|;.......|
|000039a0| 09 09 2f 2f 20 44 72 61 | 77 20 74 68 65 20 68 6f |..// Dra|w the ho|
|000039b0| 72 69 7a 20 64 69 76 69 | 64 69 6e 67 20 6c 69 6e |riz divi|ding lin|
|000039c0| 65 73 0d 20 20 4c 69 6e | 65 28 74 69 74 6c 65 52 |es.  Lin|e(titleR|
|000039d0| 65 63 74 2e 72 69 67 68 | 74 2c 30 29 3b 0d 20 20 |ect.righ|t,0);.  |
|000039e0| 4d 6f 76 65 54 6f 28 30 | 2c 67 6c 6f 62 61 6c 53 |MoveTo(0|,globalS|
|000039f0| 74 72 52 65 63 74 2e 62 | 6f 74 74 6f 6d 29 3b 0d |trRect.b|ottom);.|
|00003a00| 20 20 4c 69 6e 65 28 74 | 69 74 6c 65 52 65 63 74 |  Line(t|itleRect|
|00003a10| 2e 72 69 67 68 74 2c 30 | 29 3b 0d 0d 20 20 50 65 |.right,0|);..  Pe|
|00003a20| 6e 53 69 7a 65 28 34 2c | 34 29 3b 0d 20 20 50 65 |nSize(4,|4);.  Pe|
|00003a30| 6e 50 61 74 28 26 6d 79 | 51 44 2d 3e 67 72 61 79 |nPat(&my|QD->gray|
|00003a40| 29 3b 0d 0d 20 20 4d 6f | 76 65 54 6f 28 66 42 54 |);..  Mo|veTo(fBT|
|00003a50| 6f 70 4c 65 66 74 52 65 | 63 74 2e 72 69 67 68 74 |opLeftRe|ct.right|
|00003a60| 2c 20 20 09 09 09 09 09 | 09 09 09 2f 2f 20 44 72 |,  .....|...// Dr|
|00003a70| 61 77 20 63 72 6f 73 73 | 68 61 69 72 73 0d 20 20 |aw cross|hairs.  |
|00003a80| 20 20 20 20 20 20 20 66 | 42 54 6f 70 4c 65 66 74 |       f|BTopLeft|
|00003a90| 52 65 63 74 2e 62 6f 74 | 74 6f 6d 29 3b 0d 20 20 |Rect.bot|tom);.  |
|00003aa0| 4c 69 6e 65 54 6f 28 66 | 42 54 6f 70 52 69 67 68 |LineTo(f|BTopRigh|
|00003ab0| 74 52 65 63 74 2e 72 69 | 67 68 74 2c 66 42 54 6f |tRect.ri|ght,fBTo|
|00003ac0| 70 52 69 67 68 74 52 65 | 63 74 2e 62 6f 74 74 6f |pRightRe|ct.botto|
|00003ad0| 6d 29 3b 0d 0d 20 20 4d | 6f 76 65 54 6f 28 66 42 |m);..  M|oveTo(fB|
|00003ae0| 54 6f 70 4c 65 66 74 52 | 65 63 74 2e 72 69 67 68 |TopLeftR|ect.righ|
|00003af0| 74 2c 0d 20 20 20 20 20 | 20 20 20 20 66 42 54 6f |t,.     |    fBTo|
|00003b00| 70 4c 65 66 74 52 65 63 | 74 2e 62 6f 74 74 6f 6d |pLeftRec|t.bottom|
|00003b10| 29 3b 0d 20 20 4c 69 6e | 65 54 6f 28 66 42 42 6f |);.  Lin|eTo(fBBo|
|00003b20| 74 4c 65 66 74 52 65 63 | 74 2e 72 69 67 68 74 2c |tLeftRec|t.right,|
|00003b30| 66 42 42 6f 74 4c 65 66 | 74 52 65 63 74 2e 62 6f |fBBotLef|tRect.bo|
|00003b40| 74 74 6f 6d 29 3b 0d 0d | 20 20 4d 6f 76 65 54 6f |ttom);..|  MoveTo|
|00003b50| 28 66 42 54 6f 70 4c 65 | 66 74 52 65 63 74 2e 72 |(fBTopLe|ftRect.r|
|00003b60| 69 67 68 74 2c 0d 20 20 | 20 20 20 20 20 20 20 66 |ight,.  |       f|
|00003b70| 42 54 6f 70 4c 65 66 74 | 52 65 63 74 2e 62 6f 74 |BTopLeft|Rect.bot|
|00003b80| 74 6f 6d 29 3b 0d 20 20 | 4c 69 6e 65 54 6f 28 66 |tom);.  |LineTo(f|
|00003b90| 42 54 6f 70 4c 65 66 74 | 52 65 63 74 2e 6c 65 66 |BTopLeft|Rect.lef|
|00003ba0| 74 2c 66 42 54 6f 70 4c | 65 66 74 52 65 63 74 2e |t,fBTopL|eftRect.|
|00003bb0| 62 6f 74 74 6f 6d 29 3b | 0d 0d 20 20 4d 6f 76 65 |bottom);|..  Move|
|00003bc0| 54 6f 28 66 42 54 6f 70 | 4c 65 66 74 52 65 63 74 |To(fBTop|LeftRect|
|00003bd0| 2e 72 69 67 68 74 2c 0d | 20 20 20 20 20 20 20 20 |.right,.|        |
|00003be0| 20 66 42 54 6f 70 4c 65 | 66 74 52 65 63 74 2e 62 | fBTopLe|ftRect.b|
|00003bf0| 6f 74 74 6f 6d 29 3b 0d | 20 20 4c 69 6e 65 54 6f |ottom);.|  LineTo|
|00003c00| 28 66 42 54 6f 70 4c 65 | 66 74 52 65 63 74 2e 72 |(fBTopLe|ftRect.r|
|00003c10| 69 67 68 74 2c 66 42 54 | 6f 70 4c 65 66 74 52 65 |ight,fBT|opLeftRe|
|00003c20| 63 74 2e 74 6f 70 29 3b | 0d 0d 20 20 50 65 6e 4e |ct.top);|..  PenN|
|00003c30| 6f 72 6d 61 6c 28 29 3b | 0d 0d 20 20 7d 20 2f 2f |ormal();|..  } //|
|00003c40| 20 65 6e 64 20 64 72 61 | 77 57 69 6e 64 6f 77 28 | end dra|wWindow(|
|00003c50| 29 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)../*---|--------|
|00003c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 20 20 20 20 |--------|---.    |
|00003ca0| 20 20 67 65 74 51 44 28 | 29 0d 0d 20 20 20 20 20 |  getQD(|)..     |
|00003cb0| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 72 65 | This ro|utine re|
|00003cc0| 74 75 72 6e 73 20 74 68 | 65 20 70 6f 69 6e 74 65 |turns th|e pointe|
|00003cd0| 72 20 75 73 65 64 20 62 | 79 20 51 75 69 6b 64 72 |r used b|y Quikdr|
|00003ce0| 61 77 20 74 6f 20 70 6f | 69 6e 74 20 74 6f 0d 20 |aw to po|int to. |
|00003cf0| 20 20 20 20 20 69 74 73 | 20 67 6c 6f 62 61 6c 20 |     its| global |
|00003d00| 64 61 74 61 2e 0d 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |data...-|--------|
|00003d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 2f 0d |--------|-----*/.|
|00003d50| 0d 73 74 72 75 63 74 20 | 51 44 56 61 72 20 2a 67 |.struct |QDVar *g|
|00003d60| 65 74 51 44 28 29 0d 20 | 20 7b 0d 20 20 23 61 73 |etQD(). | {.  #as|
|00003d70| 6d 0d 0d 67 72 61 66 53 | 69 7a 65 09 45 51 55 09 |m..grafS|ize.EQU.|
|00003d80| 09 09 24 43 41 0d 0d 09 | 09 09 09 09 4d 4f 56 45 |..$CA...|....MOVE|
|00003d90| 2e 4c 09 30 28 41 35 29 | 2c 41 30 0d 09 09 09 09 |.L.0(A5)|,A0.....|
|00003da0| 09 53 55 42 2e 4c 09 09 | 23 67 72 61 66 53 69 7a |.SUB.L..|#grafSiz|
|00003db0| 65 2c 41 30 0d 0d 20 20 | 23 65 6e 64 61 73 6d 0d |e,A0..  |#endasm.|
|00003dc0| 20 20 7d 20 2f 2f 20 65 | 6e 64 20 67 65 74 51 44 |  } // e|nd getQD|
|00003dd0| 28 29 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |()../*--|--------|
|00003de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 20 20 20 |--------|----.   |
|00003e20| 20 20 20 4e 75 6d 54 6f | 53 74 72 69 6e 67 28 29 |   NumTo|String()|
|00003e30| 20 20 28 50 61 63 6b 61 | 67 65 20 67 6c 75 65 20 |  (Packa|ge glue |
|00003e40| 72 6f 75 74 69 6e 65 29 | 0d 0d 2d 2d 2d 2d 2d 2d |routine)|..------|
|00003e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e90| 2a 2f 0d 0d 4e 75 6d 54 | 6f 53 74 72 69 6e 67 28 |*/..NumT|oString(|
|00003ea0| 74 68 65 4e 75 6d 2c 74 | 68 65 53 74 72 69 6e 67 |theNum,t|heString|
|00003eb0| 29 0d 20 20 6c 6f 6e 67 | 20 20 20 20 20 20 20 20 |).  long|        |
|00003ec0| 20 74 68 65 4e 75 6d 3b | 0d 20 20 73 74 72 75 63 | theNum;|.  struc|
|00003ed0| 74 20 50 53 74 72 20 2a | 74 68 65 53 74 72 69 6e |t PStr *|theStrin|
|00003ee0| 67 3b 0d 0d 20 20 7b 0d | 20 20 23 61 73 6d 0d 09 |g;..  {.|  #asm..|
|00003ef0| 09 09 09 09 4d 4f 56 45 | 2e 4c 09 44 31 2c 41 30 |....MOVE|.L.D1,A0|
|00003f00| 09 09 09 3b 20 74 68 65 | 53 74 72 69 6e 67 0d 09 |...; the|String..|
|00003f10| 09 09 09 09 4d 4f 56 45 | 09 09 23 30 2c 2d 28 53 |....MOVE|..#0,-(S|
|00003f20| 50 29 09 3b 20 4e 75 6d | 54 6f 53 74 72 69 6e 67 |P).; Num|ToString|
|00003f30| 20 73 65 6c 65 63 74 6f | 72 0d 09 09 09 09 09 44 | selecto|r......D|
|00003f40| 43 2e 57 09 09 24 41 39 | 45 45 09 09 09 3b 20 50 |C.W..$A9|EE...; P|
|00003f50| 41 43 4b 37 0d 20 20 23 | 65 6e 64 61 73 6d 0d 20 |ACK7.  #|endasm. |
|00003f60| 20 7d 0d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 | }......|........|
|00003f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f80| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00003f90| 00 62 00 68 00 6e 0f 00 | 4d 6f 75 73 65 20 50 6f |.b.h.n..|Mouse Po|
|00003fa0| 73 69 74 69 6f 6e 00 52 | 01 08 01 0c 01 0a 00 e0 |sition.R|........|
|00003fb0| 0a 4d 6f 75 73 65 50 6f | 73 2e 63 65 02 00 00 00 |.MousePo|s.ce....|
|00003fc0| 54 45 58 54 45 44 49 54 | 01 00 00 00 00 40 00 00 |TEXTEDIT|.....@..|
|00003fd0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 40 |..TEXTED|IT.....@|
|00003fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ff0| 00 00 99 fd 99 28 00 00 | 3e e4 00 00 01 ea 60 03 |.....(..|>.....`.|
|00004000| ff f0 20 6e ff f4 2d 68 | 00 1e ff ec 2e 28 00 1e |.. n..-h|.....(..|
|00004010| 66 00 00 70 48 6e ff e8 | a8 74 42 a7 42 a7 48 6c |f..pHn..|.tB.B.Hl|
|00004020| fe ee 48 7a 07 30 42 27 | 3f 3c 00 10 2f 3c ff ff |..Hz.0B'|?<../<..|
|00004030| ff ff 1f 3c 00 01 42 a7 | a9 13 20 5f 2d 48 ff ec |...<..B.|.. _-H..|
|00004040| 2e 2e ff ec 66 00 00 08 | 70 ff 4e 5e 4e 75 2f 2e |....f...|p.N^Nu/.|
|00004050| ff ec a8 73 20 6e ff f4 | 22 6e ff ec 33 68 00 18 |...s n..|"n..3h..|
|00004060| 00 6c 20 6e ff f4 21 6e | ff ec 00 1e 3f 3c 00 04 |.l n..!n|....?<..|
|00004070| a8 87 3f 3c 00 09 a8 8a | 4e ba 06 06 2f 2e ff e8 |..?<....|N.../...|
|00004080| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00004090| 00 04 00 06 00 02 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000040a0| 00 16 00 00 00 d4 00 00 | cc 1c 00 7a 00 00 00 1c |........|...z....|
|000040b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000040c0| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 01 7a 96 |........|......z.|
|000040d0| 03 ec 00 47 00 00 00 0e | 00 01 7a 9a 46 4f 42 4a |...G....|..z.FOBJ|
|000040e0| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|000040f0| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00004100| 00 40 01 b8 00 40 10 18 | 00 40 01 bc 00 40 01 be |.@...@..|.@...@..|
|00004110| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00004120| 00 40 01 46 4f 42 4a ff | ff ff ff 00 40 01 aa 00 |.@.FOBJ.|....@...|
|00004130| 40 01 ac 00 40 01 ae 00 | 40 01 b0 00 40 01 b2 00 |@...@...|@...@...|
|00004140| 40 01 b4 00 40 01 b6 00 | 40 01 b8 00 40 10 18 00 |@...@...|@...@...|
|00004150| 40 01 bc 00 40 01 be 00 | 40 01 be 00 40 01 be 00 |@...@...|@...@...|
|00004160| 40 01 be 00 40 01 be 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|00004170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+